Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

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'

Replies are listed 'Best First'.
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?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://185308]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (9)
As of 2018-06-18 16:31 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (110 votes). Check out past polls.