Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Re: LOC

by Chmrr (Vicar)
on Jul 25, 2002 at 19:49 UTC ( #185308=note: print w/ replies, xml ) Need Help??


in reply to Re: LOC
in thread Counting lines of C code

As a side note, it's probably slightly easier to say:

perl -e '1 while <>; print "$.\n"' file1.c file2.c

..which is what the $. special variable is more or less meant for.

perl -pe '"I lo*`+$^X$\"$]!$/"=~m%(.*)%s;$_=$1;y^`+*^e v^#$&V"+@( NO CARRIER'


Comment on Re: Re: LOC
Select or Download Code
Re: Re: Re: LOC
by jsprat (Curate) on Jul 25, 2002 at 20:13 UTC
    Or equivalently, (still naive as dws points out, but a few less keystrokes :-)

    perl -lne'}{print$.' file1.c file2.c

    Update: Massaged one-liner, but still manage to lose by 2 strokes...

      If it's a golfin' that ye'll be wantin', just say so!

      perl -ple'}{$_=$.' file1.c file2.c

      Update: Shaved off a semicolon.

      perl -pe '"I lo*`+$^X$\"$]!$/"=~m%(.*)%s;$_=$1;y^`+*^e v^#$&V"+@( NO CARRIER'

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (6)
As of 2014-12-28 13:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (181 votes), past polls