在当前目录和 1 个子目录中搜索带有 .txt 扩展名的文件

Question

在 perl 中使用 'ls -R' 命令，在当前和 1 个子目录下查找扩展名为 .txt 的文件的参数是什么？此外，我将如何计算文件数量，如果数量为一个或多个，是否执行一个代码块，以循环方式逐个打开文件？

Answer 1

ls -R是一个 shell 命令。在 Perl 中，您可以使用其他方法，例如通配符：

for my $file (glob '*.txt */*.txt') {
    if (-f $file) {                          # only take files
        open my $FH, '<', $file or die "$!";
    } 
}