Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: what's this loo code?

by BrowserUk (Pope)
on Feb 04, 2003 at 19:04 UTC ( #232622=note: print w/ replies, xml ) Need Help??


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.


Comment on Re: what's this loo code?
Download Code
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

      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"; }

      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.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://232622]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (5)
As of 2014-07-10 03:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (198 votes), past polls