Community  »  CGI: Allgemeines Forum

Dateien in Ordner zählen	Seitenanfang
Hi Ihr, wie kann man mit Perl die Anzahl von Dateien in einem Ordner zählen ? Ich suche mich gerade tot. Hab es etwas umständlich, aber es funzt irgendwie nicht "Internal Server Error"): [code]chdir("../../test/"); opendir(DIR,"."); my @Eintraege = readdir(DIR); closedir(DIR); my $i=0; while (@Eintraege) { $i = $i + 1; }/code] Datum: 14.12.2005-20:02
re: Dateien in Ordner zählen	Seitenanfang
Hi, nunja diese while-Schleife kann man sich wohl sparen und lieber gleich so die Anzahl bestimmen: my $anzahl = @Eintraege; Du solltest dabei noch beachten das bei readdir unter Linux oder Unix auch die . und .. Daeien mit eingelesen werden, dies wird ja im Allgemeinen nicht gewünscht. Um das zu umgehen solltest du vllt lieber my @Eintraege = grep( !/^\.\.?$/, readdir(DIR)); Eine elegantere Möglichkeit fällt mir gerade nicht ein. Datum: 15.12.2005-08:23
re: Dateien in Ordner zählen	Seitenanfang
Danke cornhulio ! Funktioniert jetzt wunderbar ! Danke für die Verbesserungsvorschläge ! Der Code nochmal in funktionierender Form: chdir("../../firma/grafiken"); opendir(DIR,"."); my @Eintraege = grep( !/^\.\.?$/, readdir(DIR)); closedir(DIR); chdir("../../cgi-bin/test/"); my $anzahleintraege = @Eintraege; Datum: 15.12.2005-18:21