求教探索File::Find模塊的深度使用，如過濾文件

pigkingone

perl中有個模塊，F(xiàn)ile::Find,搜索目錄，文件用的。平時很好用。最近突然思考了一個問題，始終理解不透徹。希望大牛幫忙解析：

代碼目的：
       假設(shè)目錄文件量非常大，想提高掃描效率。
工作目標：
       有的目錄明確知道不需要掃描。我該如何才能排除他們。不是簡單的不打印出結(jié)果，而是實實在在的不去read這個目錄？

我看了下這個模塊，暫時看到 兩種方法的可能性，我試驗了第一種，失敗了。。。不知道我哪里理解錯了？
順帶第二種我也沒信心了，請大家?guī)兔�看看我的代碼有什么問題，有什么處理的好方法。

代碼：
use 5.010;
use File::Find;

$path=`cd`;
chomp $path;
$option{wanted}=\&want;
$option{untaint}=1;
$option{untaint_skip}=1;
$option{untaint_pattern}=qr\web2$\;            #這個匹配，到底是符合規(guī)則的才處理，還是符合規(guī)則的不處理，應(yīng)該怎么寫？這個參數(shù)我
                                                                   #無論怎么改都沒有起到作用，比如我目錄下有個子目錄web2，照樣打印出來了，包括web2的子目錄和文件。。。。why。。。
find(\%option,$path);
sub want{
        say $File::Find::name;
}

第二個方法，是prepross，這個我只在網(wǎng)上看了有人提到，具體方法和效果也不太理解？
請大牛們幫忙救救。。。。

wenhq

next if -d $name ；

pigkingone

回復(fù) 2# wenhq


    在什么參數(shù)下，什么位置寫呢？
    我想要的不只是打印結(jié)果，而是實實在在的，不去掃描某子目錄下的文件。

wenhq

看下perl 進階 第7章 ：File：：Find

pigkingone

回復(fù) 4# wenhq


    是intermediate perl嗎？我搜了沒有untaint_pattern等關(guān)鍵字��？能提供更詳細的信息嗎，謝謝啦。

wenhq

是講這個模塊的呀！

pigkingone

回復(fù) 6# wenhq


    因為是英文的，我大概掃了下，外加搜索了下我使用的關(guān)鍵參數(shù)。是有將，但是好像沒有我的代碼中的相關(guān)參數(shù)？

pigkingone

自己再頂一下。。。

104359176

這個模塊不好用，初學(xué)者建議使用  File::Find::Wanted   中提供的簡單接口。 find_wanted

1. To get a list of all files ending in .jpg:
   
2. 
   
3.     my @files = find_wanted( sub { -f && /\.jpg$/ }, $dir );
   
4. For a list of all directories that are not CVS or .svn:
   
5. 
   
6.     my @files = find_wanted( sub { -d && !/^(CVS|\.svn)$/ }, $dir ) );
   
7. It's easy, direct, and simple.
   
8. 
   
9. WHY DO THIS? ^
   
10. 
    
11. The cynical may say "that's just the same as doing this":
    
12. 
    
13.     my @files;
    
14.     find( sub { push @files, $File::Find::name if -f && /\.jpg$/ }, $dir );

復(fù)制代碼

dqw233

use 5.010;
use File::Find;

sub want{
        say $File::Find::name;
}

$File::Find::skip_pattern = qr/$File::Find::skip_pattern | web2/x; #可以修改skip_pattern，注意加上它的默認值。
find(\&want, '.');