Verzeichniss auslesen (nur Dateien)

[Klaus Mock]

Hallo,

nunächst mal fühle ich mich ein bisschen geehrt das mir der Chef persönlich antwortet ;)... aber leider funktioniert das nicht so richtig...

opendir(DIR,$dir);

foreach $file (readdir(DIR))
{
if ($file eq ".") {next;}
if ($file eq "..") {next;}
if ( -d "$file" ) {next;}
print "$file<br>";
$count++;
}
closedir(DIR);

Tja, ganz ohne Dokumentationskonsultation wird dann doch nicht gehen;-)

Da -d auf eine Dateizugreift, mußt du auch angeben, wo diese Datei genau zu suchen ist. Wenn Du also mit
opendir(DIR,$dir);
aud das Verzeichnis $dir zugreifst und der Dateiname $filename ist, dann müßte es
if ( -d "$dir/$file" ) {next;}
heißen.

So nebenbei, da du ja überprüfen willst, ob das da ein 'echter' File ist, solltest Du -f anstelle von -d verwenden.

Unter
perldoc -f -X
und
perldoc -f readdir
findest Du näheres.

Grüße
  Klaus