Zeilenanzahl einer Textdatei ermitteln - #114880 (Allgemeines zu Perl)

Struppi

2008-09-23 18:51

User since
2006-02-17
628 Artikel
BenutzerIn

Ohne die Datei zu öffnen wird's schwierig, aber einlesen musst du sie nicht:

Code (perl): (dl )

1
2
3

open F, $0;
while(<F>){;}
print $.;

[EDIT]Vergiss den Vorschlag schnell wieder! Er ist 500 mal langsamer als die Version mit dem sysread.