Как поддержать поиск файла на основе регулярного выражения

Question

С здесь

#!/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);