opendir und ./..

[Alexander (HH)]

Moin Moin!

my @dateien = grep{ not /^./ } readdir DIR;

geht natürlich auch.

Nö, frißt zu viel weg, siehe mein Posting von 08:11.

So mach ich das, wenn ich nicht globbe:

chdir($dir);
my @files = <*.gif>;

Lustigerweise genau das selbe Problem. Die PerlFAQ beschreibt ein ähnliches Problem in http://perldoc.perl.org/perlfaq5.html#Why-doesn't-glob("*.*")-get-all-the-files?. glob findet keinen einzigen Verzeichniseintrag, der mit einem Punkt anfängt -- außer man schreibt den Punkt explizit rein.

chdir ist übrigens unnötig, glob("$dir/*.gif") funktioniert genauso und liefert das Verzeichnis gleich mit, im Gegensatz zu readdir. Mein Problem mit glob ist, dass glob nicht sonderlich portabel ist und bei alten Perl-Versionen(?) einen Helfer-Prozess startet. Und das Pattern muß in der jeweiligen Shell- statt RegExp-Syntax angegeben werden.

Alexander