如何将目录内容移动到Perl中的数组？

Question

我需要打开一个目录，读取目录中的内容/文件，然后将目录中的所有文件移动到一个数组中。

我必须使用Perl脚本完成所有这些操作。任何人都可以给我代码将目录内容移动到数组中吗？

请填写以下脚本：

opendir(INFILE_DIR,"$Input_Path") || die "cannot open $Input_Path ";            
my @files =---------------;

“------”区域会将目录内容移动到数组中。

提前致谢。

Answer 1

这不需要你chdir到想要的目录：

opendir my $dh, $dir or die "Cannot open directory $dir\n";
my @files = readdir $dh;
closedir $dh;

Answer 2

chdir $dir or die "Can't cd to $dir: $!\n";
my @contents = glob("*");

Answer 3

打开目录后，您必须阅读它（readdir）才能获取文件。

opendir(my $dh, ".");
my @files=readdir($dh);
closedir $dh;

Answer 4

您正在寻找的功能是readdir。您可以通过perldoc -f readdir找到更多有关使用它的帮助。