Opened by alexus-777 at 2004-06-05 12:03
[quote=renee,05.06.2004, 17:48][quote=Dieter,05.06.2004, 14:02]oder so ...
[/quote]
Damit forderst Du unbedingt eine File-Extension. Diese ist aber nicht unbedingt notwendig![/quote]
Na gut - dann eben so :)
damit werden dann dann auch die Fälle ohne Extension erschlagen.
Code: (dl
)
1
2
3
4
5
opendir DIR, $dir or die $!;
my $files = grep /\.\w+$/, readdir DIR;
closedir DIR;
$files == 0 && print "Verzeichnis leer!";
Damit forderst Du unbedingt eine File-Extension. Diese ist aber nicht unbedingt notwendig![/quote]
Na gut - dann eben so :)
Code: (dl
)
1
2
3
4
5
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.