如何在Perl中获取目录列表？

参见英文答案 > How do I read in the contents of a directory in Perl?7答案我想在Perl程序中执行ls作为CGI脚本的一部分。为此，我使用exec(ls)，但这不从exec调用返回。

有没有更好的方法来获取目录在Perl中的列表？

解决方法

Exec根本不返回。如果你想要，使用系统。

如果你只是想读一个目录，打开/读/关闭目录可能更合适。

opendir my($dh),$dirname or die "Couldn't open dir '$dirname': $!";
my @files = readdir $dh;
closedir $dh;
#print files...