如何使用Perl的grep通过匹配其名称中的模式来查找特定文件

Question

我有一个存储在Perl变量中的字符串，该变量应该与存储在目录中的文件名的开始部分匹配。

我使用这个变量从Perl的grep中找到与该模式匹配的文件。下面是我在做什么：

opendir (DIR, "data/testroot/") or die "$!"; 
    @file1 = <$f1/*.hdf> 
    foreach(@file1){ 
     $patt = substr(basename($_),0,$ind); 
     $file2 = grep {/${patt}*\.hdf/} readdir(DIR); 
     #other code follows....... 
    } 
    closedir(DIR); 

首先，我得到的所有文件的列表中的文件夹f1并将它们存储阵列@file英寸然后，对于@file1中的每个条目，我提取前几个字符，将它们存储在$patt中，然后尝试从另一个文件夹data/testroot/中获取类似文件，这些文件具有匹配的起始模式，存储在$patt中。

那grep $file2 = grep {/${patt}*\.hdf/} readdir(DIR);不起作用。

Answer 1

${patt}*\.hdf表示“出现0次或多次出现$ patt，接着是.hdf”。你确定你不是指“$ patt，随后是任意文本，后面是.hdf”吗？

那将是/${patt}.*\.hdf/。

Answer 2

我想你想找到目录A中的所有*.hdf文件，它们的文件名与目录B中任何这样的文件的第一个$ind字符匹配？

对于这两个目录，您都应该使用glob或readdir，但不能同时使用两者。在这种情况下，glob似乎是最好的选择，因为它允许您从A中选择所有*.hdf文件，而无需使用正则表达式检查它们。

下面的程序似乎做你需要的。我用$f1和$ind取代了样本值。

use strict; 
use warnings; 

use File::Basename; 

my $f1 = 'data'; 
my $f1 = 'data/testroot'; 
my $ind = 6; 

foreach (glob "$f1/*.hdf") { 
    my $patt = substr(basename($_), 0, $ind); 
    my @match = glob "$f2/$patt*.hdf"; 

    #other code follows....... 
}