perl – 我如何使用$File :: Find :: prune？

发布时间：2020-12-15 23:26:23 所属栏目：大数据来源：网络整理

导读：我需要在第一个目录中编辑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: $!"; fore

我需要在第一个目录中编辑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($_);
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!