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

Crian

2004-04-21 16:38

User since
2003-08-04
5875 Artikel
ModeratorIn

[quote=Taulmarill,21.04.2004, 14:15]also, schneller als

Code: (dl )

1
2

    while ( <FILE> ) {}
   my $ln = $.;

is das auch nich, aber als einzeiler sehr cool.

was genau tut *_=*.?[/quote]
Das will ich eigentlich gar nicht so genau wissen ... ich schätz mal alles mit _ wird alias für alles mit ., also $_ alias für $. und bei -p wird am Ende print $_ ausgegeben, also print $. ... naja denk ich jetzt mal so.

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