comment on

I wondered how to do this if the rows were not all the same length. This is what I came up with.

use strict;
use warnings;

use Data::Dumper;
use List::Util q{max};

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

print Data::Dumper->Dumpxs([\@arr], [q{*arr}]);

my @transposed =
   map {
           my $col = $_;
           [
               map {
                       exists $arr[$_]->[$col]
                       ? $arr[$_]->[$col]
                       : undef
                   } 0 .. $#arr
           ]
       }
   0 .. max(map { $#{ $_ } } @arr);

print Data::Dumper->Dumpxs([\@transposed], [q{*transposed}]);
[download]

Here's the output.

@arr = (
         [
           'ein',
           'zwei',
           'drei'
         ],
         [
           'one',
           'two',
           'three',
           'four',
           'five'
         ],
         [
           'un',
           'deux',
           'trois',
           'quatre'
         ],
         [
           'uno',
           'due',
           'tre',
           'quattro',
           'cinque',
           'sei'
         ]
       );
@transposed = (
                [
                  '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]

I imagine some of the modules mentioned could cope with this but haven't checked.

Cheers,

JohnGG

In reply to Re: How to swap rows with columns? by johngg
in thread How to swap rows with columns? by perl_geek

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.


Keep It Simple, Stupid
	PerlMonks