http://www.perlmonks.org?node_id=232684


in reply to Re: what's this loo code? (*slurp*)
in thread what's this loo code?


But I wanted to mention my first impression when I saw that code in jmcnamara's node: "Oh, that takes way too much memory and will fail for files that don't fit within your available swap space".

I hope you realise that I was aware of that. :-)

This snippet's only real value is as a mild curiosity. When I first posted it here I wrote: "There are many ways of doing this and most of them are better".

If I really wanted a line count I would use one of the following in this order of preference:

wc -l file awk 'END{print NR}' file perl -nle 'END{print $.}' file
--
John.