许多文件和Perl中的递归搜索

Question

我在目录结构中搜索文件时遇到了一些问题。例如，我有一个目录“页面”。在里面我有两个目录：“a”和“b”。两个目录都包含文件：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。