Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
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
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

      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 rifling through the Monastery: (7)
As of 2015-07-29 05:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (260 votes), past polls