查找：文件在Perl中 - 通過符號鏈接目錄搜索

Question

有誰知道如何使文件：查找可以通過符號鏈接目錄搜索？

我在

/home/alex/mydir1 

一個真正的目錄，裏面

/home/alex/mydir1/test -> ../mydir2 

這裏一個符號鏈接的目錄是我的代碼：

#!/depot/perl-5.8.3/bin/perl 
use strict; 
use File::Find qw(find); 

my $path = "/home/alex/mydir1"; 

find(\&Search,follow => 1, $path); 

sub Search{ 
    my $path = $File::Find::name; 
    print $path."\n"; 
} 

，其結果是：

/home/alex/mydir1 
/home/alex/mydir1/test 

爲什麼不通過/ home/alex/mydir2搜索並打印出每個文件？任何人都可以告訴我該怎麼做？

謝謝，最好的問候。

亞歷

Answer 1

在爲File::Find的文檔仔細觀察，發現錯誤： 你傳遞的參數，而不是一個參考鍵值列表到的參數哈希。

# Incorrect: looks like find(@params) 
# asks find to search the list of paths: 
# ('follow', 1, $path) 
find(\&Search,follow => 1, $path); 

# Correct: looks like find(\%params) 
find({ wanted => \&process, follow => 1 }, $path);