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

Gast Gast

2008-09-23 19:38

oder so ;-P

Code (perl): (dl )

1
2
3

my $lc;
for(open(F, $0); !eof(F) || !($lc=$.) || !close(F) ; <F> ){}
print "$lc\n";