in reply to what's this loo code?

If you just want the line count (no slurping).

perl -ne"}{die" file

If you want the filenames too

perl -ne"}{die$ARGV" *

Examine what is said, not who speaks.

The 7th Rule of perl club is -- pearl clubs are easily damaged. Use a diamond club instead.

Replies are listed 'Best First'.
Re: Re: what's this loo code?
by Anonymous Monk on Feb 06, 2003 at 15:07 UTC
    that's interesting. how does that '}{die' thing work ? why doesn't perl complain of mismatched braces or something
[reply]

      Take a look at the documentation for the -p and -n switches in perlrun. In prasee er...short, it says 

      -p
causes Perl to assume the following loop around your program, which ma
+kes it iterate over filename arguments somewhat like sed:

LINE:while (<>) { # your program goes here } 
continue { print or die "-p destination: $!\n"; }

      [download]

      If you substitute the 'program' eg. "}{die" where the comment above says " your program goes here", then you willl see how the thing works.

      Examine what is said, not who speaks.

      The 7th Rule of perl club is -- pearl clubs are easily damaged. Use a diamond club instead.

[reply]
[d/l]

In Section Seekers of Perl Wisdom