Как собрать имена файлов из папки в список?

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);

, чтобы получить конкретныйтипы файлов и т. д.