testen ob Verzeichnis leer - #83053 (Allgemeines zu Perl)

Crian

2004-06-06 20:37

User since
2003-08-04
5875 Artikel
ModeratorIn

[quote=Dieter,06.06.2004, 13:50]Na gut - dann eben so :)

Code: (dl )

opendir DIR, $dir or die $!;
my $files = grep /^\w+\.*\w+$/, readdir DIR;
closedir DIR;

$files == 0 && print "Verzeichnis leer!";

damit werden dann dann auch die Fälle ohne Extension erschlagen.[/quote]
Und was ist mit der Datei 'A' und was ist mit der Datei '_'?

Wie ich weiter oben schon beschrieben habe, wird so ein Schuh daraus:

Code: (dl )

opendir DIR, $dir or die $!;
my @files = grep {$_ ne '.' and $_ ne '..'} readdir DIR;
closedir DIR;

print "Verzeichnis leer!" if @files == 0;

Oder von mir aus auch so, wenns unbedingt eine RE sein soll:

Code: (dl )

opendir DIR, $dir or die $!;
my @files = grep /^(?!\.$)(?!\.\.$)/, readdir DIR;
closedir DIR;

print "Verzeichnis leer!" if @files == 0;

\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite