相對尋址在Perl中，使用開放DIR

Question

我已經上市目錄中的所有文件，下面的代碼，我有路徑解決麻煩，我的目錄是爲* 的/ tmp/ *，基本上我想要的文件這些目錄位於tmp目錄中。但我不允許使用*，你有什麼想法嗎？

my $directory="*/tmp/*/"; 
opendir(DIR, $directory) or die "couldn't open $directory: $!\n"; 
my @files = readdir DIR; 
foreach $files (@files){ 
    #... 
} ; 

closedir DIR; 

Answer 1

執行opendir不能使用通配符工作

爲了您的任務存在有點難看，但工作液

my @files = grep {-f} <*/tmp/*>; # this is equivalent of ls */tmp/* 
# grep {-f} will stat on each entry and filter folders 
# So @files would contain only file names with relative path 
foreach my $file (@files) { 
    # do with $file whatever you want 
} 

Answer 2

沒有通配符和*通配符：

use 5.010; 
use Path::Class::Rule qw(); 
for my $tmp_dir (Path::Class::Rule->new->dir->and(sub { return 'tmp' eq (shift->dir_list(1,1) // q{}) })->all) { 
    say $_ for $tmp_dir->children; 
}