Datein in Dirs zählen

[Marcus Vieß]

Mhh irgendwie zählt er nicht die *.cgi Dateien.
Kann mir mal einer helfen, kann eigentlich nur noch ne Kleinigkeit sein oder ?

#!/usr/bin/perl
$numoffiles = 0;
print 'Content-type: text/html\n\n';

foreach $file(@allfiles) {

if ($file =~ '.*.cgi') {
$numoffiles++;
}

}

print '$numoffiles';

[Marcus Vieß]

#!/usr/bin/perl

$reviewspath = "../../ab18/reviews/";
$numoffiles = 0;
print "Content-type: text/html\n\n";
while ($filename=<$reviewspath*.num>) {
$numoffiles++;
}
print "$numoffiles";

und so klappts !!!

hehe, ist doch immer schön wenn man 2 Std. sucht, ins Forum postet und dann aufeinmal kommt die Lösung ...