Re^3: Printing from three arrays

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]