查找::文件預處理

Question

我想指定一個目錄，並遞歸查找子目錄中的每個文件。在find chdir的目錄下，我想在find之前做一些處理讀取文件。這裏有一個簡單的代碼片段來演示這個問題。它不會遞歸到子目錄中，但看起來應該如此。我可以驗證子目錄和文件是否存在，因爲如果我在沒有預處理密鑰的情況下調用find，那麼我將獲得列表。我一直沒有使用過Perl，所以我很難過。

find({ 
    wanted => \&wanted, 
    preprocess => \&preprocess 
}, "/home/nelson/invoices/"); 


# function definitions 

sub wanted { 
    print "Calling wanted...\n"; 
    print "\t" . $File::Find::name . "\n"; 
} 

sub preprocess{ 
    print "Calling preprocess...\n"; 
    print "\t" . $File::Find::dir . "\n"; 
} 

這裏是輸出。

Calling wanted... 
     /home/nelson/invoices 
Calling preprocess... 
     /home/nelson/invoices 
Calling wanted... 
     /home/nelson/invoices/1 

Answer 1

的preprocess功能有望恢復項目的（可能修改）列表進一步檢查。在您的示例中，您可以在preprocess的末尾添加@_;以返回未修改的參數。您可以執行類似grep { $_ !~ /pattern/ } @_的操作來過濾不需要的項目，等等。