Как найти в каталоге все файлы .XXX и получить их список в Perl?

Question

Мне нужно искать в каталоге все файлы, заканчивающиеся на .123.

Как (используя Perl) получить список этих файлов?

Answer 1

Просто:

@files = glob "$dirname/*.123";

Answer 2

glob должен выполнить эту работу.
Если вы хотите выполнять рекурсивный поиск, вы можете использовать File::Find.

Answer 3

Один способ - использовать glob :

use warnings;
use strict;

my @files = grep { -f } glob '*.123';