perl - 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.
}

另请参阅文件::查找。