我需要在第一个目录中编辑cue文件,而不是在子目录中递归.
find(\&read_cue,$dir_source);
sub read_cue {
/\.cue$/ or return;
my $fd = $File::Find::dir;
my $fn = $File::Find::name;
tie my @lines,'Tie::File',$fn
or die "could not tie file: $!";
foreach (@lines) {
s/some substitution//;
}
untie @lines;
}
我尝试过变种
$File::Find::prune = 1; return;
但没有成功.我应该在哪里放置和定义$File :: Find :: prune？
谢谢
解决方法
如果你不想递归,你可能想要使用
glob：
for (glob("*.cue")) {
read_cue($_);
}