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