Zeilen aller Dateien eines Verzeichnisses zaehlen

[Cruz]

hallo Bakka,

Naja..wenn es die Zeilen der Dateien zählen soll, die du als Argument übergibst, dann geht es so:

foreach $filename (@ARGV) {
open (FILE, "<$filename) or die "Could not open $filename";
@lines=<FILE>;
close(FILE);

$anzahl=$anzahl + $#lines; # ($#lines ist die länge desArrays @lines)
}

print "Es wurden $anzahl Zeilen gezählt";

Wenn du allerdings alle Dateien eines bestimmten Typs öffnen möchtest, dann musst du schon eine Directory Listing einlesen und die die richtigen Dateien daraus filtern. Den Syntax dazu programmierst du bitte selber zusammen.

Gruß
Marcell