Re: Mal was für einen perl-Fachmann ...

Am Dienstag, 29. Juni 2004 09:34 schrieb Wältner, Thomas:
> Hi Jörg,
>
> versuch mal:
>
> #!/usr/bin/perl
> $dirname = "/tmp";
> $counter = 0;
>
> opendir(DIR, $dirname) or die "can't opendir $dirname: $!";
> while (defined($file = readdir(DIR))) {
>     #print "$dirname$file\n";
>     $counter++;
> }
> closedir(DIR);
>
> print "Anzahl der Dateien: $counter\n";

Hallo,
das ist aber genau die von mir angesprochene opendir()/while
Kombination.
Ist ja auch in Ordnung, normalerweise. Ich habe hier aber
Verzeichnisse mit 10000 und mehr Dateien, und habe die
(u.a.) Aufgabe, schnell die genaue Anzahl zu bestimmen.
Ich glaube aber mittlerweile, daß es nicht anders geht als
von Dir skizziert, denn ich habe keinen Unix-Systemcall gefunden,
der mir diese Info liefern könnte.
Ich hatte nur gehofft, daß es vielleicht eine Möglichkeit gibt,
mit opendir(), seekdir() und telldir() die Dateianzahl zu generieren.
Danke Dir.
Jörg