With a tiny change we shun the use of $c. thereby a bit faster.
perl -nle 'END { print $. }' file
thanks
2008/1/22, Chas. Owens <[EMAIL PROTECTED]>:
>
> On Jan 22, 2008 2:58 PM, lerameur <[EMAIL PROTECTED]> wrote:
> > Hello,
> >
> > I wrote a short perl script (65 lines), simply to count some log file
> > time, and take the average. The script takes 4 minutes to run and go
> > through about 8 millions lines.
> > I would like to know if I can make it run faster. Why?, if I use the
> > command 'wc -l filename' , I get the number of lines in about a
> > minute, that is three less then the small script. I am right by
> > thinking the script can be reprogrammed so it can be process the file
> > faster ???
> snip
>
> Since we can't see your code, we can't tell if it can be done faster.
> Please note that wc -l is doing something that in Perl could be
> accomplished in 1 line:
>
> perl -nle 'END { print $c } $c++' file
>
> or the slightly more efficient
>
> perl -ne 'BEGIN { $/ = \4196 } END { print "$c\n" } $c += tr/\n//' file
>
> so 65 lines is a significantly more complex program and trying to
> compare them is not a good idea. You should also make sure that you
> are not seeing the effects of caching when comparing the two programs.
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> http://learn.perl.org/
>
>
>
