Преобразование строк в столбцы в perl [duplicate]

use List::UtilsBy qw/zip_by/;

my @transposition = zip_by { [ @_ ] } @matrix;

https://metacpan.org/pod/List::UtilsBy#zip_by

use strict;
my ($i, $rows, $cols) = (0, 10, 100);
# initiate array 10x100
my $array = [map {[map {$i++} (1..$cols)]} (1..$rows)];
# transpose array into 100x10 array
my $transpose = [map {[map {shift @$_} @$array]} @{$array->[0]}];

массив должен быть матрицей, то есть столбцы должны быть равны для каждой строки, исходный массив будет уничтожен

этот код не будет использовать дополнительную память для транспонирования, x2 для других библиотек, для больших массив, например 100x1M, имеет значение

Конечно, есть, и Майк указал на самый простой способ. Если вы учитесь, вы, вероятно, захотите написать свою собственную функцию? Во-первых, вы хотите расколоть каждую строку в пробелах, чтобы получить массив значений (или нажмите список слов слов в массив, как в Ответ Далтона , в Perl всегда есть более чем один способ сделать что-либо). Затем, для каждого элемента в массиве , вы хотите напечатать его и его копию во втором массив на одну строку. (Что вы будете делать, если один массив закончится раньше другого?)

Конечно, если вы хотите изучить Perl, вы также определенно захотите научиться использовать CPAN, так что все равно стоит попробуйте использовать Data :: Pivot.

use strict;
# read the first line
my @labels = split ' ', <>;
# read and ignore the empty second line
<>;
# read the third line
my @values = split ' ', <>;
# transpose (I suppose you'll do more with the table than just printing it)
my %table = map { $labels[$_] => $values[$_] } 0..$#labels;
# print
foreach (@labels) {
    print "$_ $table{$_}\n";
}

Вот схема одного из способов переноса данных. Работа с этим примером будет поучительной, потому что вам нужно будет использовать CPAN , вы узнаете о полезных List::Util и List::MoreUtils модулях , вы узнаете основы сложных структур данных (см. perlreftut , perldsc и perllol ), и вы сможете использовать итератор в Perl.

use strict;
use warnings;
use List::MoreUtils qw(each_arrayref);

my @raw_data = (
    '0 1 2 3 4 5 6 7 8 9 10',
    '6 7 3 6 9 3 1 5 2 4 6',
);

my @rows = ... ; # Look up map() and split() to fill in the rest.
                 # You want an array of arrays.

my @transposed;  # You will build this in the loop below.

my $iter = each_arrayref(@rows);  # See List::MoreUtils documentation.

while ( my @tuple = $iter->() ){
    # Do stuff here to build up @transposed, which
    # will also be an array of arrays.
}

Вот мой новый скрипт для переноса файла с разделителями табуляции. Измените \ t на свой разделитель, если хотите.

#!/usr/bin/perl -anF/\t|\n/
$n = @F - 1 if !$n;
for $i (0..$n) {
    push @{ $m->[$i] }, $F[$i];
}
END {
    for $r (@$m) {
        print join("\t", @$r), "\n";
    }
}

или как «один лайнер» с 104 символами (с добавлением апострофа-обратной косой черты-новой строки-апострофы во избежание горизонтальной прокрутки):

perl -anF'\t|\n' -e'$n=@F-1if!$n;for(0..$n){push@{$$m[$_]},$F[$_]}'\
'END{print map{join"\t",@$_,"\n"}@$m}'

как насчет Array-Transpose-0.06?

http://metacpan.org/pod/Array::Transpose