Как читать содержимое каталога в Perl?

Как заставить Perl читать содержимое данного каталога в массив?

Backticks может это сделать, но есть ли какой-то метод, использующий "scandir" или аналогичный термин?

33
file-io filesystems perl

8 ответов

opendir(D, "/path/to/directory") || die "Can't open directory: $!\n";
while (my $f = readdir(D)) {
    print "$f = $f\n";
}
closedir(D);

EDIT: о, извините, пропустил часть "в массив":

my $d = shift;

opendir(D, "$d") || die "Can't open directory $d: $!\n";
my @list = readdir(D);
closedir(D);

foreach my $f (@list) {
    print "$f = $f\n";
}

EDIT2: большинство других ответов действительны, но я хотел бы прокомментировать ответ в частности, в котором это решение предлагается:

opendir(DIR, $somedir) || die "Can't open directory $somedir: $!";
@dots = grep { (!/^\./) && -f "$somedir/$_" } readdir(DIR);
closedir DIR;

во-первых, чтобы документировать, что он делает, так как плакат не сделал: он передает возвращенный список из readdir () через grep () это возвращает только те значения, которые являются файлами (в отличие от каталоги, устройства, именованные каналы и т. д.) и это не начинается с точки (которая делает имя списка @dots вводит в заблуждение, но это связано с изменением, которое он сделал при копировании его из документации readdir ()). Поскольку он ограничивает содержимое возвращаемого каталога, я не думаю, что это технически правильный ответ на этот вопрос, но он иллюстрирует общую идиому, используемую для фильтрации имен файлов в Perl, и я подумал, что это будет полезно документировать. Другой пример видел много есть:

@list = grep !/^\.\.?$/, readdir(D);

этот фрагмент считывает все содержимое из дескриптора каталога D кроме '.' и.' .- поскольку они очень редко используются в списке.

48

быстрое и грязное решение-использовать Глоб

@files = glob ('/path/to/dir/*');
13

IO:: Dir приятно и обеспечивает связанный хэш-интерфейс, а также.

из perldoc:

use IO::Dir;
$d = IO::Dir->new(".");
if (defined $d) {
    while (defined($_ = $d->read)) { something($_); }
    $d->rewind;
    while (defined($_ = $d->read)) { something_else($_); }
    undef $d;
}

tie %dir, 'IO::Dir', ".";
foreach (keys %dir) {
    print $_, " " , $dir{$_}->size,"\n";
}

Так что вы могли бы сделать что-то вроде:

tie %dir, 'IO::Dir', $directory_name;
my @dirs = keys %dir;
8

это сделает это, в одной строке (обратите внимание на подстановочный знак " * " в конце)

@files = </path/to/directory/*>;
# To demonstrate:
print join(", ", @files);
7

вы могли бы использовать DirHandle:

use DirHandle;
$d = new DirHandle ".";
if (defined $d)
{
    while (defined($_ = $d->read)) { something($_); }
    $d->rewind;
    while (defined($_ = $d->read)) { something_else($_); }
    undef $d;
}

DirHandle предоставляет альтернативный, более чистый интерфейс для opendir(), closedir(), readdir() и rewinddir() функции.

5

вот пример рекурсии через структуру каталогов и копирования файлов из сценария резервного копирования, который я написал.

sub copy_directory {
my ($source, $dest) = @_;
my $start = time;

# get the contents of the directory.
opendir(D, $source);
my @f = readdir(D);
closedir(D);

# recurse through the directory structure and copy files.
foreach my $file (@f) {
    # Setup the full path to the source and dest files.
    my $filename = $source . "\" . $file;
    my $destfile = $dest . "\" . $file;

    # get the file info for the 2 files.
    my $sourceInfo = stat( $filename );
    my $destInfo = stat( $destfile );

    # make sure the destinatin directory exists.
    mkdir( $dest, 0777 );

    if ($file eq '.' || $file eq '..') {
    } elsif (-d $filename) { # if it's a directory then recurse into it.
        #print "entering $filename\n";
        copy_directory($filename, $destfile); 
    } else { 
        # Only backup the file if it has been created/modified since the last backup 
        if( (not -e $destfile) || ($sourceInfo->mtime > $destInfo->mtime ) ) {
            #print $filename . " -> " . $destfile . "\n";
            copy( $filename, $destfile ) or print "Error copying $filename: $!\n";
        } 
    } 
}

print "$source copied in " . (time - $start) . " seconds.\n";       
}
1

похоже на приведенное выше, но я думаю, что лучшая версия (слегка измененная) из "perldoc-f readdir":

opendir(DIR, $somedir) || die "can't opendir $somedir: $!";
@dots = grep { (!/^\./) && -f "$somedir/$_" } readdir(DIR);
closedir DIR;
1

from:http://perlmeme.org/faqs/file_io/directory_listing.html

#!/usr/bin/perl
use strict;
use warnings;

my $directory = '/tmp';

opendir (DIR, $directory) or die $!;

while (my $file = readdir(DIR)) {
    next if ($file =~ m/^\./);
    print "$file\n";
}

в следующем примере (на основе примера кода из perldoc-f readdir) получает все файлы (не каталоги), начинающиеся с периода из открытого каталога. Имена файлов находятся в массиве @dots.

#!/usr/bin/perl

use strict;
use warnings;

my $dir = '/tmp';

opendir(DIR, $dir) or die $!;

my @dots 
    = grep { 
        /^\./             # Begins with a period
    && -f "$dir/$_"   # and is a file
} readdir(DIR);

# Loop through the array printing out the filenames
foreach my $file (@dots) {
    print "$file\n";
}

closedir(DIR);
exit 0;


closedir(DIR);
exit 0;
0