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に格納し、$pattに格納されている一致する開始パターンを持つ別のフォルダdata/testroot/から同様のファイルを取得しようとします。

そのgrep $file2 = grep {/${patt}*\.hdf/} readdir(DIR);は機能していません。

Answer 1

${patt}*\.hdfは、「$ pattの0回以上の出現、その後の.hdf」を意味します。あなたは "$ patt、その後に任意のテキスト、続いて.hdf"を意味するのではないでしょうか？

これは/${patt}.*\.hdf/になります。

Answer 2

*.hdfすべてのファイルがディレクトリAにあり、そのファイル名がディレクトリ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....... 
}