Re: Re: LOC


We don't bite newbies here... much
	PerlMonks

by Chmrr (Vicar)

on Jul 25, 2002 at 19:49 UTC ( [id://185308]=note: print w/replies, xml )

Need Help??

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

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]
Re: Re: Re: Re: LOC by Chmrr (Vicar) on Jul 25, 2002 at 20:28 UTC
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]

Domain Nodelet^?

Node Status^?

node history
Node Type: note [id://185308]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others surveying the Monastery: (2)

As of 2024-04-25 22:44 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found