Anzahl Zeilen in Textdatei ermitteln: (Wie mache ich das am schnellsten?) - #81709 (Allgemeines zu Perl)

Crian

2004-04-21 16:33

User since
2003-08-04
5875 Artikel
ModeratorIn

[quote=jan,21.04.2004, 11:57]sonst nimm doch einfach die dateigröße und lass anschließend den fortschritt durch die anzahl der verarbeiteten bytes anzeigen, nach dem motto "eine lange zeile mit mehr daten kostet mehr zeit", das spart dir den ersten zählvorgang komplett und ist auch nicht ganz so schlimm ;)[/quote]
Auch eine interessante Idee...

Mein Code sieht so aus:

Code: (dl )

sub zeilenzahl ($) {
    my $f = shift;
    my $c = 0;


    open (F, $f) or stirb("Kann '$f' nicht oeffnen: $!");
    ++$c while <F>;
    close(F) or stirb($!);


    return $c;

} # sub zeilenzahl

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite