Re^2: How to swap rows with columns?

Nice variation of the problem.

@arr = (
   [ qw{ ein zwei drei } ],
   [ qw{ one two three four five } ],
   [ qw{ un deux trois quatre } ],
   [ qw{ uno due tre quattro cinque sei} ],
);;

push @xformed, [ map{ shift @$_  } @arr ] while @{ $arr[-1 ] };;

print pp @xformed;;
(
  ["ein", "one", "un", "uno"],
  ["zwei", "two", "deux", "due"],
  ["drei", "three", "trois", "tre"],
  [undef, "four", "quatre", "quattro"],
  [undef, "five", undef, "cinque"],
  [undef, undef, undef, "sei"],
)
[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^2: How to swap rows with columns? Download Code

Replies are listed 'Best First'.
Re^3: How to swap rows with columns? by johngg (Canon) on Oct 10, 2007 at 20:43 UTC
Now that's very neat! BrowserUk++ Cheers, JohnGG	[reply]
Re^4: How to swap rows with columns? by BrowserUk (Patriarch) on Oct 10, 2007 at 22:42 UTC
Not so neat after all. It relies on the fact that your data had the biggest sub-array last. Move it to any other position and it fails. You still need max() for a proper solution. 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."	[reply]