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

Crian

2004-04-21 16:41

User since
2003-08-04
5873 Artikel
ModeratorIn

[quote=Taulmarill,21.04.2004, 14:37]also nach dem was ich gebenchmarkt habe währe folgendes etwas schneller

Code: (dl )

1
2

while (<F>) {};
$c = $.;

[/quote]
Ja, das hatte ich mir schon gedacht, als ich meins schrieb, aber danke für das genaue benchmarken.

Aber 19 oder 23 Sekunden ist irgendwie beides zu lang, ich fürchte ich muss Jans Weg gehen. Das Betimmen der Dateigröße mit -s geht hoffentlich schneller.

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