使用File :: Find :: Rule获取Perl中的文件列表

Question

我正在尝试识别我的存储库中所有.cpp文件的列表。我使用以下脚本：

use File::Find::Rule;
use strict;
use warnings;

my @files = File::Find::Rule->name('*.cpp');
print Dumper @files;

我得到以下输出：

$VAR1 = bless( {
             'mindepth' => undef,
             'maxdepth' => undef,
             'extras' => {},
             'subs' => {},
             'iterator' => [],
             'rules' => [
                          {
                            'args' => [
                                        '*.cpp'
                                      ],
                            'rule' => 'name',
                            'code' => 'm{(?-xism:^(?=[^\\.])[^/]*\\.cpp$)}'
                          }
                        ]
           }, 'File::Find::Rule' );

我在网上找不到任何关于获取文件列表的参考资料。

有人可以指点我如何获得所需的清单吗？

感谢。

Answer 1

一种方式：

my @files = File::Find::Rule->file()->name('*.cpp')->in('.');