У меня есть текстовый файл с именем paths.txt
, который содержит пути к файловой системе, как показано ниже.
/prod/bcs/lgnp/clientapp/empstmt/parm/
/prod/bcs/hdpp/clientapp/trprpsp/parm/
/prod/bcs/hdpp/clientapp/trpnonq/parm/
/prod/bcs/lgnp/clientapp/kmpndwl/parm/
Я пытаюсь прочитать все данные, присутствующие в этих каталогах, с помощью Perl.
Я пробовал так, но он не может открыть каталоги.
#!/usr/bin/perl -w
use strict;
my ($path, $file, @files);
open(IN, "paths.txt");
foreach $path ( <IN> ) {
opendir(DIR, $path) or die "Cannot open $path\n";
while ( $file = readdir(DIR) ) {
print "$file";
}
closedir(DIR);
}
close(IN);