gpt4 book ai didi

perl - 如何在Perl中使用File::Find?

转载 作者:行者123 更新时间:2023-12-03 12:27:24 25 4
gpt4 key购买 nike

我对File::Find文档有点困惑...等效于$ find my_dir -maxdepth 2 -name "*.txt"吗?

最佳答案

就个人而言,我更喜欢 File::Find::Rule ,因为它不需要您创建回调例程。

use strict;
use Data::Dumper;
use File::Find::Rule;

my $dir = shift;
my $level = shift // 2;

my @files = File::Find::Rule->file()
->name("*.txt")
->maxdepth($level)
->in($dir);

print Dumper(\@files);

或者创建一个迭代器:
my $ffr_obj = File::Find::Rule->file()
->name("*.txt")
->maxdepth($level)
->start($dir);

while (my $file = $ffr_obj->match())
{
print "$file\n"
}

关于perl - 如何在Perl中使用File::Find?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/3795490/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com