perl简单的grep

Question

我想在perl中创建一个简单的grep调用。 我有2个变量。 $ VAR1，$ VAR2 我想得到文件名以$ var1开头的所有文件，文件的末尾是$ var2 perl中grep命令的语法是什么呢。

Answer 1

类似的东西：

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

会做

Answer 2

获取当前目录中以$var1开头并以$var2结尾的所有文件名：

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

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

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

Answer 3

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/)
}