如何将文件夹中的文件名收集到列表中

Question

我正在寻找一种使用 Perl 将文件名收集到列表中的方法。例如，我进入一个包含一百个不同文件名的文件夹，从文本文件到 MP3，我想将每个文件名放在一个列表中。我该怎么做？我到处寻找，似乎想不通。我已经使用 chdir 函数，但我似乎无法读取文件名并打印它们。谁能帮忙？

Answer 1

查找函数 glob：

my @allfiles = glob '*.*';
my @musics = glob '*.mp3';

Answer 2

一种方法是打开当前目录，并获取其所有内容，如下所示：

opendir(DIR, "yourDIR");
my @files = readdir(DIR); 

显然你可以使用这样的grep

my @files = grep {...} readdir(DIR);

获取特定类型的文件等。