http://www.perlmonks.org?node_id=185308


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...

[reply]
[d/l]

      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'

[reply]
[d/l]

In Section Seekers of Perl Wisdom