Re: Count number of lines in a text file

What about this oft-quoted golf shot?

perl -pe '}{$_=$.' filename
[download]

-QM
--
Quantum Mechanics: The dreams stuff is made of

Comment on Re: Count number of lines in a text file Download Code

Replies are listed 'Best First'.
Re^2: Count number of lines in a text file by ambrus (Abbot) on Mar 24, 2006 at 10:29 UTC
Very tricky. So because of the `}`, the `continue { print $_; }` block is no longer attached to the loop, but to the `{$_=$.}` bare block. I never knew this trick with -p. (I knew about `-ne '...}{...'` but not what it did with -p.)	[reply] [d/l] [select]
Re^3: Count number of lines in a text file by QM (Parson) on Mar 28, 2006 at 15:07 UTC
Yes. But `-p` and `-n` only differ by the continue/print. Compare `-p`: `> perl -MO=Deparse -pe"#stuff#" LINE: while (defined($_ = <ARGV>)) { (); } continue { print $_; }` [download] to `-n`: `> perl -MO=Deparse -ne"#stuff#" LINE: while (defined($_ = <ARGV>)) { (); }` [download] -QM -- Quantum Mechanics: The dreams stuff is made of	[reply] [d/l] [select]