Chrisman: Dateien in einem Verzeichnis zählen

Beitrag lesen

Hi,

weiß jemand eine Möglichkeit, wie man Dateien in einem Verzeichnis in Perl zählen kann? (Alle Dateien sind vom gleichen Typ)

Klaro:

opendir(DIR,"/pfad/zu/dem/verzeichnis");
@dateien = readdir(DIR);
closedir(DIR);

$count = 0;

foreach $datei (@dateien)
{
$count++;
}

print "Insgesamt sind in diesem Verzeichnis $count Dateien.";

MfG
Chrisman