Zeilen aller Dateien eines Verzeichnisses zaehlen

[Rolf]

Hallo, Korrektur (sorry für den Müll von vorhin)

$dir = "c:/temp";
$typ = "nt";

opendir(DIR,$dir);
@x_files = grep ((!/^./ and /.$typ$/),readdir(DIR));
closedir (DIR);

foreach $file (@x_files){...}# Rolf