Re^3: Printing from three arrays


Clear questions and runnable code get the best and fastest answer
	PerlMonks

by FreeBeerReekingMonk (Deacon)

on Sep 26, 2019 at 22:09 UTC ( [id://11106772]=note: print w/replies, xml )

Need Help??

I checked the glob page, and I could not find something that would make it change it's ways, so you would need to split and join it :(

perl -e '@_=split(/=/, $_) and print join(", " ,@_[2,0,1]),"\n" for glob "{a,b,c}={I,II,III}={1,2,3,4}"'

it's cumbersome, though. I tried something with unshift pop but it was longer.

perl -E '@_=split /=/ and unshift(@_,pop @_) and say join ", ", @_ for glob "{a,b,c}={I,II,III}={1,2,3,4}"'

perl -E '@_=split /=/ and say join ", ", unshift(@_, pop @_) && @_ for glob "{a,b,c}={I,II,III}={1,2,3,4}"'

Comment on Re^3: Printing from three arrays Select or Download Code

Replies are listed 'Best First'.
Re^4: Printing from three arrays by AnomalousMonk (Archbishop) on Sep 26, 2019 at 23:36 UTC
Not really much (if any) better: `c:\@Work\Perl\monks>perl -wMstrict -le "use 5.014; ;; print s{\A(.+?),(.+?),(.+?)}{$3,$1,$2}xmsr for glob '{a,b,c},{I,II,III},{1,2,3,4}'; "` [download] (I won't show the output; it's as expected.) Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]

Domain Nodelet^?

Node Status^?

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

Chatterbox^?

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

Other Users^?

Others rifling through the Monastery: (1)

As of 2024-04-25 05:51 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found