Я пытаюсь пройти через все подкаталоги текущего каталога в Perl и получать данные из этих файлов. Я использую grep для получения списка всех файлов и папок в данном каталоге, но я не знаю, какое из возвращаемых значений будет именем папки и которое является файлом без расширения файла.
Как я могу сказать разницу?
Вы можете использовать оператор проверки файлов -d, чтобы проверить, что-то является каталогом. Здесь некоторые из наиболее часто используемых операторов проверки файлов
-e File exists.
-z File has zero size (is empty).
-s File has nonzero size (returns size in bytes).
-f File is a plain file.
-d File is a directory.
-l File is a symbolic link.
Подробнее см. справочную страницу perlfunc
Кроме того, попробуйте использовать File:: Find, который может перезаписать каталоги для вас. Здесь образец, который ищет каталоги....
sub wanted {
if (-d) {
print $File::Find::name." is a directory\n";
}
}
find(\&wanted, $mydir);
print "$file is a directory\n" if ( -d $file );
Посмотрите на операторы -X:
perldoc -f -X
Для обхода каталога используйте File:: Find или, если вы не мазохист, используйте мой модуль File:: Next, который делает итератор для вас и не требует безумных обратных вызовов. Фактически, вы можете иметь файлы:: Next ONLY возвращать файлы и игнорировать каталоги.
use File::Next;
my $iterator = File::Next::files( '/tmp' );
while ( defined ( my $file = $iterator->() ) ) {
print $file, "\n";
}
# Prints...
/tmp/foo.txt
/tmp/bar.pl
/tmp/baz/1
/tmp/baz/2.txt
/tmp/baz/wango/tango/purple.txt
Он находится в http://metacpan.org/pod/File::Next
my @files = grep { -f } @all;
my @dirs = grep { -d } @all;
my $dh = opendir(".");
my @entries = grep !/^\.\.?$/, readdir($dh);
closedir $dh;
foreach my $entry (@entries) {
if(-f $entry) {
# $entry is a file
} elsif (-d $entry) {
# $entry is a directory
}
}
Было бы проще использовать File::Find.