Как я могу перебирать файлы в каталоге в Perl?

Question

Можно создать дубликат:
How can I list all of the files in a directory with Perl?

Я хочу перебрать несколько сотен файлов, все содержащиеся в одном каталоге. Как я могу это сделать в Perl?

Answer 1

Вы можете использовать readdir или glob.

Или, вы можете использовать модуль, такой как Path::Class:

Обычно children() не будет включать в себя и родительские элементы. и .. (или их эквиваленты в системах, отличных от Unix), потому что это похоже на бизнес I'm-my-own-grandpa. Если вы хотите, чтобы все элементы каталога, включая эти специальные, передать истинное значение для всех параметров:

@c = $dir->children(); # Just the children 
@c = $dir->children(all => 1); # All entries 

Кроме того, есть no_hidden параметр, который исключает все нормально «скрытую» запись - на Unix это означает исключение все записи, которые начинаются с точки (.):

@c = $dir->children(no_hidden => 1); # Just normally-visible entries 

Или Path::Tiny:

@paths = path("/tmp")->children; 
@paths = path("/tmp")->children(qr/\.txt$/); 

Возвращает список Path::Tiny объектов для всех файлов и каталогов в пределах каталога. Исключает "." и ".." автоматически.

Если предоставляется необязательный аргумент qr//, он возвращает только объекты для дочерних имен, которые соответствуют данному регулярному выражению. Только имя базы используется для сравнения:

@paths = path("/tmp")->children(qr/^foo/); 
# matches children like the glob foo* 

Получение списка записей каталога в отходах массива некоторое количество памяти (в отличие от получения имени один файл за один раз), но лишь несколько сотен файлов , это вряд ли будет проблемой.

Path::Class переносится в операционные системы, отличные от * nix и Windows. С другой стороны, AFAIK, его экземпляры используют больше памяти, чем Path::Tiny экземпляров.

Если память является проблемой, вам лучше использовать readdir в цикле while.

Answer 2

#!/usr/bin/perl -w 

@files = <*>; 
foreach $file (@files) { 
    print $file . "\n"; 
} 

Где

@files = <*>; 

может быть

@files = </var/www/htdocs/*>; 
@files = </var/www/htdocs/*.html>; 

и т.д.

Answer 3

Наслаждайтесь.

opendir(DH, "directory"); 
my @files = readdir(DH); 
closedir(DH); 

foreach my $file (@files) 
{ 
    # skip . and .. 
    next if($file =~ /^\.$/); 
    next if($file =~ /^\.\.$/); 

    # $file is the file used on this iteration of the loop 
}