如何基于正则表达式支持搜索文件

Question

来自here

#!/usr/bin/perl
my @arr = ('/usr/test/test-[\d.*].*.con');

如何基于正则表达式支持搜索文件

Answer 1

如果我理解你的问题，可以采用以下方法：使用glob查找目录中的所有文件，使用grep过滤它们。

my $dir = '/usr/test';
my @files = grep { /REGEX_HERE/ } glob("$dir/*");

Answer 2

您可以使用File::Find来完成此操作。

use File::Find;

my @files = ();
find( sub {/test-[\d.*].*.con/ && push @files, $File::Find::name}, '/usr/test' );

print foreach (@files);