perl简单grep

Question

我想在perl中创建一个简单的grep调用。 我有2个变量。 $ VAR1，$ VAR2 ，我想所有的文件名与$ var1的启动和文件的结尾是$ VAR2 这将是对Perl中的grep命令，做的是语法的文件。

Answer 1

获取与$var1开始和$var2结束在当前目录中的所有文件名：

my @matchingFileNames = <$var1*$var2>; 

编辑：要处理空格和特殊字符作为@Schwern和@ikegami正确地指出：

my @matchingFileNames = <\Q$var1\E*\Q$var2\E>; 

Answer 2

opendir(DIR, "yourDIR"); 
my @FILES= readdir(DIR); 
my @matching_files; 

for my $file (@FILES) { 
    push(@matching_files, $file) if ($file =~ /\A$var1/ and $file =~ /$var2\z/) 
} 

Answer 3

喜欢的东西：

my @files = grep {/\A$var.*$var2\z/} @input_files 

会做