Re^4: How to swap rows with columns?

in reply to Re^3: How to swap rows with columns?
in thread How to swap rows with columns?

Why not just do away with the local var completely:

@a = ( [1..3],['a'..'c'],['x'..'z']);;

@a = map{ [ map{ shift @$_  } @a ] } 1 .. @{ $a[0] };;

print pp @a;;
([1, "a", "x"], [2, "b", "y"], [3, "c", "z"])
[download]

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."

Comment on Re^4: How to swap rows with columns? Download Code

Replies are listed 'Best First'.
Re^5: How to swap rows with columns? by ikegami (Patriarch) on Oct 10, 2007 at 05:48 UTC
Too much shifting for his taste, surely :)	[reply]

In Section Seekers of Perl Wisdom