如何在目录中搜索所有 .XXX 文件并在 Perl 中获取它们的列表？

Question

我需要在一个目录中搜索所有以 .123 结尾的文件。

我如何（使用 Perl）获取这些文件的列表？

Answer 1

简单地说：

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

Answer 2

一种方法是使用glob:

use warnings;
use strict;

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

Answer 3

glob 应该可以胜任。
如果要递归搜索，可以使用File::Find。