Re^2: what's this loo code? (*slurp*)

Efficient:

perl -ne'BEGIN{$/=\65536} $a+=tr/\n//; END{print"$a\n"}' file
[download]

Pity there's no way to set $/ to a reference to a number using a switch.

Makeshifts last the longest.

Comment on Re^2: what's this loo code? (slurp) Download Code

Replies are listed 'Best First'.
Re: Re^2: what's this loo code? (slurp) by John M. Dlugosz (Monsignor) on Feb 05, 2003 at 03:58 UTC
If the last line doesn't end with a \n (that is, \n is not the last character in the last chunk) you'll be off by one.	[reply]
Re^4: what's this loo code? (slurp) by Aristotle (Chancellor) on Feb 05, 2003 at 08:01 UTC
Yes, I poached this from perlfaq5 which notes the issue. Makeshifts last the longest.	[reply]