使用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('.');