Dateien in einem Verzeichnis auslesen: Problem dabei - #78192 (Allgemeines zu Perl)

sid burn

2007-07-07 18:06

User since
2006-03-29
1520 Artikel
BenutzerIn

user image

Code (perl): (dl )

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

while ( my $file = glob '*' ) {
    print $file, "\n";
}

Code (perl): (dl )

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

opendir my $dir, '.'  or  die "Cannot open '.': $!\n";
while ( my $file = readdir $dir ) {
    next if $file eq '.' or $file eq '..';
    print $file, "\n";
}
closedir $dir;

Lösung 1) Sortiert noch automatisch die Namen nach ASCII Alphabet, daher ist es etwas langsamer. Ich denke aber das in den meisten Fällen die Performance genau in diesem Fall eh keine Rolle Spielt.

Wann man etliche Verzeichnisse Rekursiv durchgeht, kann es vielleicht eine Spielen. Aber dann würde ich gleich lieber zu File::Find oder wie hier das bessere genannte File::Find::Rule empfehlen.

Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de