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

Hallo Jörg,

das geht doch meines Wissens ganz einfach:

#!/usr/bin/perl
$dirname = "/tmp";

chdir $dirname;
@inhalt=<*.*>;
$anzahl=@inhalt;




Jörg Linnenkohl schrieb:

>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
>
>
>_______________________________________________
>redhat-list-de mailing list
>[email protected]
>https://www.redhat.com/mailman/listinfo/redhat-list-de
>
>  
>

_______________________________________________
redhat-list-de mailing list
[email protected]
https://www.redhat.com/mailman/listinfo/redhat-list-de