如何在Perl的目录中列出所有文件？

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

导读：参见英文答案 How do I read in the contents of a directory in Perl?7答案在Perl中有一个函数列出目录中的所有文件和目录？我记得Java有File.list()这样做吗？在Perl中有类似的方法吗？解决方法如果你想得到给定目录的内容，并且只有它(即没有子目录)，

参见英文答案 > How do I read in the contents of a directory in Perl?7答案在Perl中有一个函数列出目录中的所有文件和目录？
我记得Java有File.list()这样做吗？在Perl中有类似的方法吗？

解决方法

如果你想得到给定目录的内容，并且只有它(即没有子目录)，最好的方法是使用opendir / readdir / closedir：

opendir my $dir,"/some/path" or die "Cannot open directory: $!";
my @files = readdir $dir;
closedir $dir;

您还可以使用：

my @files = glob( $dir . '/*' );

但在我看来，它不是那么好 – 主要是因为glob是相当复杂的事情(可以自动过滤结果)，并使用它来获取目录的所有元素似乎是一个太简单的任务。

另一方面，如果您需要从所有目录和子目录获取内容，则基本上有一个标准解决方案：

use File::Find;

my @content;
find( &;wanted,'/some/path');
do_something_with( @content );

exit;

sub wanted {
  push @content,$File::Find::name;
  return;
}

（编辑：李大同）

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