Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re^2: join program in one-liner

by bmann (Priest)
on Aug 19, 2005 at 22:16 UTC ( #485318=note: print w/ replies, xml ) Need Help??


in reply to Re: join program in one-liner
in thread join program in one-liner

Same as yours, but cut out unnecessary space and get rid of the END block:

# 1 2 3 4 #23456789012345678901234567890123456789012345 perl -lne'$a[$.].=$_;$.=0if eof}{print for@a'

BTW, perldoc perlvar says:

$. is reset when the filehandle is closed, but not when an open filehandle is reopened without an intervening close(). For more details, see "I/O Operators" in perlop. Because "<>" never does an explicit close, line numbers increase across ARGV


Comment on Re^2: join program in one-liner
Select or Download Code
Replies are listed 'Best First'.
Re^3: join program in one-liner
by truedfx (Monk) on Aug 28, 2005 at 11:40 UTC
    And $.=0if eof can be changed:
    # 1 2 3 4 #234567890123456789012345678901234567890123 perl -lne'$a[$.].=$_;$.*=!eof}{print for@a'

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (14)
As of 2015-07-28 22:24 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