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

renee

2004-06-05 19:48

User since
2003-08-04
14371 Artikel
ModeratorIn

[quote=Dieter,05.06.2004, 14:02]oder so ...

Code: (dl )

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

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

[/quote]
Damit forderst Du unbedingt eine File-Extension. Diese ist aber nicht unbedingt notwendig!