可能重复：
how to move the directory contents into an Array in Perl?
我需要打开一个目录，读取目录中的内容/文件，然后将目录中的所有文件移动到一个数组中。
我必须使用Perl脚本完成所有这些操作。任何人都可以给我代码将目录内容移动到数组中吗？
请填写以下脚本：
“opendir（INFILE_DIR，”$ Input_Path“）|| die”无法打开$ Input_Path“;
我的@files = ---------------;“
“------”区域会将目录内容移动到数组中。
提前致谢。