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