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

renee

2004-06-05 13:33

User since
2003-08-04
14371 articles
ModeratorIn

[E|B
,05.06.2004, 11:28]@files = grep{$_ =~ m/\w/} readdir(D);

Ich würde eher

Code: (dl )

grep{$_ !~ /^\.\.?$/}

machen.
Ich habe häufiger Dateien, die als Namen nur Zahlen haben...

und

Code: (dl )

print "Verzeichnis leer!" if(scalar(@files) == 0);

\n\n