如何打開由想要的函數內的File :: Find找到的文件？

Question

我有這樣的代碼的下方。如果我在search功能（通過File::Find::find調用）打開文件$File::Find::name（在這種情況下，它是./tmp/tmp.h），它說：「無法打開文件./tmp/tmp.h原因=在temp.pl行沒有這樣的文件或目錄第36行，第98行。「

如果我直接在另一個函數打開文件，我可以打開該文件。 有人可以告訴我這種行爲的原因嗎？我在Windows上使用activeperl，版本是5.6.1。

use warnings; 
use strict; 
use File::Find; 

sub search 
{ 
    return unless($File::Find::name =~ /\.h\s*$/); 
    open (FH,"<", "$File::Find::name") or die "cannot open the file $File::Find::name reason = $!"; 
    print "open success $File::Find::name\n"; 
    close FH; 

} 

sub fun 
{ 
    open (FH,"<", "./tmp/tmp.h") or die "cannot open the file ./tmp/tmp.h reason = $!"; 
    print "open success ./tmp/tmp.h\n"; 
    close FH; 

} 

find(\&search,".") ; 

Answer 1

請參閱perldoc File::Find：在File::Find::find更改爲當前搜索的目錄後，將調用想要的函數（在您的情況下搜索）。如您所見，$File::Find::name包含文件相對於搜索開始位置的路徑。該路徑在當前目錄更改後不起作用。

你有兩個選擇：

1. 泰爾文件::查找不改變其搜索目錄：find({ wanted => \%search, no_chdir => 1 }, '.');
2. 或者不使用$File::Find::name，但$_代替。

Answer 2

如果./tmp/是一個符號鏈接，那麼你需要做以下幾點：

find({ wanted => \&search, follow => 1 }, '.'); 

這是否幫助？

Answer 3

如果要在當前工作目錄中搜索文件，可以使用Cwd。

use warnings; 
use strict; 
use File::Find; 
use Cwd; 

my $dir = getcwd; 

sub search 
{ 
    return unless($File::Find::name =~ /\.h\s*$/); 
    open (FH,"<", "$File::Find::name") or die "cannot open the file $File::Find::name reason = $!"; 
    print "open success $File::Find::name\n"; 
    close FH; 

} 

find(\&search,"$dir") ;