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

【问题标题】：How to support the searching file based on regular expression如何支持基于正则表达式的搜索文件
【发布时间】：2010-08-18 10:43:41
【问题描述】：

来自here

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

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

【问题讨论】：

标签： regex perl

【解决方案1】：

如果我理解您的问题，这里有一种方法：使用glob 查找目录中的所有文件并使用grep 过滤它们。

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

【讨论】：

【解决方案2】：

您可以使用File::Find 来做这件事。

use File::Find;

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

print foreach (@files);

【讨论】：