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 

會做