Frage zu opendir(DIR, $dir) Funktion

[Benne]

Hallo Dave,

$name = basename($dir);
if($name != "." || $name != "..") { dann mache was auch immer }

das ist nicht gerade sehr perlisch[tm]

ich würde so etwas empfehlen:

  
opendir(DIR, "/path/to/dir") || die "couldn't open /path/to/dir: $!";  
my @dateien = grep { not /^\.\.?$/} readdir(DIR);  
closedir(DIR)

die grep funktion is für solche Dinge sehr nützlich.
Man könnte auch alle *.jpe?g, *.png, *.gif Dateien mit einem regulären Ausdruck filtern:

  
my @dateien = grep { -f "/path/to/dir/$_" and /\.(jp?eg|gif|png|bmp)$/i } readdir(DIR);

Gruß,
Benne