Поиск в текущем каталоге и в 1 подкаталоге файлов с расширением .txt

Question

Используя команду 'ls -R' в perl, каков параметр для поиска файлов с расширением .txt в текущем и 1 подкаталоге? Кроме того, как подсчитать количество файлов и, если число равно одному или более, сделать блок кода, который открывает файлы один за другим, как в цикле?

Answer 1

ls -R - это команда оболочки. В Perl вы можете использовать другие средства, например, globbing:

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