perl - 多くのファイルと Perl での再帰による検索

Question

カタログ構造内のファイルの検索に少し問題があります。たとえば、ディレクトリ「ページ」があります。その中に、「a」と「b」という 2 つのディレクトリがあります。どちらのディレクトリにも、a.html と b.html というファイルが含まれています。このファイルを見つけて画面に書き込むなど、Perl の再帰手順をどのように記述しますか?

より具体的に。ファイルの「ユニバーサル」パスの書き方がわかりません。例えば：

open (FILE, "page/ (find a and b) / find (a.html and b.html)" ) or die "Can't open!";

Answer 1

globファイルを見つけるために使用できます：

for my $filename (glob 'page/{a,b}/{a,b}.html') {
    open my $FH, '<', $filename or die "Cannot open $filename: $!";
    # Process the file here.
}

File::Findも参照してください。