Проблема открытия нескольких файлов в каталоге - PullRequest
Новая
       35

Проблема открытия нескольких файлов в каталоге

0 голосов
/ 17 апреля 2019

Мне нужно открыть все файлы с расширением .tab в каталоге gor/ и позже использовать эти файлы для дальнейших расчетов. Проблема в том, что мой код успешно открывает каталог и находит эти файлы, но по какой-то причине не открывает их. В чем может быть проблема? 

use strict;
use warnings;

my $dirname = "gor";
opendir(DIR, $dirname) || die "Error in opening dir $dirname\n";
my @files = grep {/tab/} readdir (DIR);
foreach my $file(@files){
    print $file, "\n";
    if(open(my $fh, $file)){
        my @arr;
        while(<$fh>){
            chomp;
            push @arr, $_;
        }
        close $fh;
        print @arr;
    }

}
closedir DIR;

Из этого кода я ожидал бы получить имя файла, а после этого все его содержимое (и оно продолжается для всех файлов), вместо этого все, что я получаю, - это только имена файлов. Перемещение цикла foreach после closedir дает мне тот же результат.

...