Perl关于目录的一些操作（目录遍历，File::Find模块使用以及目录分割）

最新推荐文章于 2024-07-15 22:13:36 发布

tyashiro

最新推荐文章于 2024-07-15 22:13:36 发布

阅读量2.8k

点赞数

文章标签： Perl

本文链接：https://blog.csdn.net/tyashiro/article/details/81016505

版权

本文详细介绍了如何使用Perl进行目录遍历，重点讲解了File::Find模块的应用，以及如何进行目录路径的分割操作。通过一个实际的文件编码转换小程序实例，展示了Perl在处理文件夹及其内容方面的强大功能。

摘要由CSDN通过智能技术生成

 
 1、遍历给定目录，直接递归，不采用模块 
（当年写的一个转换特定文件夹下所有文件编码的小程序）
 
 use  
 IO::Dir; 
 
 use  
 Encode; 
 
 use  
 File::Copy; 
 
 use  
 strict; 
 
     
 
 sub  
 changeEncoding 
 
 {
   
 
      
 die  
 "Wrong para number!"  
 if  
 not  
 defined  
 $_ 
 [0] or not  
 defined  
 $_ 
 [1]; 
 
         
 
      
 my  
 ( 
 $file 
 ,  
 $base 
 ) =  
 @_ 
 ; 
 
      
 my  
 $dir_fh  
 = IO::Dir->new( 
 $file 
 ) or  
 die  
 "Can't open file: $file\n" 
 ; 
 
      
 while  
 ( 
 defined 
 ( 
 my  
 $filename  
 =  
 $dir_fh 
 -> 
 read 
 )) 
 
      
 {
   
 
          
 print  
 ">> dealing with $filename.\n" 
 ; 
 
          
 if  
 ( 
 $filename  
 eq  
 '.'  
 ||  
 $filename  
 eq  
 '..' 
 ) 
 
          
 {  
 next 