這個(gè)目錄遞歸查詢(xún)?cè)趺锤?/a>

kggg

請(qǐng)教一下， 下面的腳本一直不成功， 怎么改好？

1. use strict;
   
2. use warnings;
   
3. use 5.010;
   
4. 
   
5. 
   
6. &diraction('/path/to/dir');
   
7. 
   
8. 
   
9. sub diraction{
   
10.    my $dir = shift;
    
11.    opendir(H, $dir) or die "can't open dir";
    
12.    chdir $dir;
    
13.    my @info = readdir H;
    
14.    closedir H;
    
15.    for  (sort @info){
    
16.        next if $_ =~ /^(\.|\.\.)/;
    
17.        if( -d ){
    
18.            diraction($dir."/".$_);
    
19.        }
    
20.        else
    
21.        {
    
22.            say $_." is a files";
    
23.        }
    
24.    }
    
25. }
    

復(fù)制代碼

104359176

目錄遞歸涉及操作系統(tǒng)，很多細(xì)節(jié)，不如用 Perl 自帶的模塊：

1. use File::Find::Wanted qw(find_wanted);
   
2. 
   
3. my @files = find_wanted( sub { -f && /\.jpg$/ }, $dir );

復(fù)制代碼

kggg

回復(fù) 2# 104359176

謝謝啊，  不知道具體問(wèn)題出在哪。

有時(shí)不方便裝模塊需要用一下自己寫(xiě)的遞歸。

   

jason680

issue here:
   chdir $dir;

104359176

回復(fù) 3# kggg


如果公司不準(zhǔn)裝 Perl 模塊，就用內(nèi)置的隨發(fā)行版一起發(fā)布的模塊： File::Find：

http://perldoc.perl.org/File/Find.html#SEE-ALSO

1. use File::Find;
   
2.     find(\&wanted, @directories_to_search);
   
3.     sub wanted { ... }
   
4.     use File::Find;
   
5.     finddepth(\&wanted, @directories_to_search);
   
6.     sub wanted { ... }
   
7.     use File::Find;
   
8.     find({ wanted => \&process, follow => 1 }, '.');

復(fù)制代碼

雖然這個(gè)模塊不太好用，但從比自己寫(xiě)強(qiáng)多了。