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

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Perl-Sensitive Sunglasses
	PerlMonks