如何在目录中搜索所有.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。