Transposer en perl

J'ai commencé à apprendre le perl et j'aime essayer de nouvelles choses.

J'ai un problème dans un traitement de texte.
J'ai un peu de texte de la forme,

0 1 2 3 4 5 6 7 8 9 10

6 7 3 6 9 3 1 5 2 4 6

Je veux transposer ce texte. Comme, je veux faire de lignes que de colonnes sna de colonnes que de lignes. Id-il un moyen de le faire en perl?

Merci à vous tous.

source d'informationauteur jerrygo

  1. 12

    Donc cette solution utilise un tableau de tableaux, chaque tableau imbriqué
    est une ligne de données. Très simplement, vous en boucle sur les colonnes de chaque
    ligne et de les pousser sur un autre tableau de tableaux à l'aide de la colonne
    index l'index pour pousser la valeur sur. Cela a pour effet
    de faire pivoter les données que vous avez demandé.

    #!/usr/bin/env perl

my @rows = ();
my @transposed = ();

# This is each row in your table
push(@rows, [qw(0 1 2 3 4 5 6 7 8 9 10)]);
push(@rows, [qw(6 7 3 6 9 3 1 5 2 4 6)]);

for my $row (@rows) {
  for my $column (0 .. $#{$row}) {
    push(@{$transposed[$column]}, $row->[$column]);
  }
}

for my $new_row (@transposed) {
  for my $new_col (@{$new_row}) {
      print $new_col, " ";
  }
  print "\n";
}

    Il en résulte:

    0 6 
1 7 
2 3 
3 6 
4 9 
5 3 
6 1 
7 5 
8 2 
9 4 
10 6
  2. 5

    Voici une façon de transposer des données. De travail par le biais de cet exemple est instructif, car vous aurez besoin d'utiliser CPANvous apprendrez au sujet de la durée de List::Util et Liste::MoreUtils modules, vous apprendrez les bases des structures de données complexes (voir perlreftutperldscet perllol), et vous aurez à utiliser un itérateur en 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.
}
  3. 3

    Il est certainement, et Mike a souligné la façon la plus simple. Si vous êtes en apprentissage, vous avez probablement vous souhaitez écrire votre propre fonction?

    Tout d'abord, vous voulez split chaque ligne sur des espaces pour obtenir un tableau de valeurs (ou de pousser la liste de mots dans le tableau, comme dans De Dalton répondre; en Perl, il y a toujours plus d'une façon de faire n'importe quoi)

    Ensuite, pour chaque élément dans le tableau, si vous voulez l'imprimer et de son homologue dans le second tableau, sur la même ligne. (Qu'allez-vous faire si un tableau s'écoule avant que l'autre?)

    Bien sûr, si vous voulez apprendre le Perl, vous aurez certainement envie d'apprendre à utiliser CPAN ainsi, c'est donc toujours la peine d'essayer de l'aide de Données::Pivot.

  4. 2

    Voici mon nouveau script de transposer un fichier délimité par des tabulations. Modifier \t pour votre délimiteur si vous le souhaitez.

    #!/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";
    }
}

    ou 104 caractère "one liner" (avec apostrophe-barre oblique-saut de ligne-apostrophe ajoutée pour éviter le défilement horizontal):

    perl -anF'\t|\n' -e'$n=@F-1if!$n;for(0..$n){push@{$$m[$_]},$F[$_]}'\
'END{print map{join"\t",@$_,"\n"}@$m}'
  5. 1
    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";
}
  6. 1
    use List::UtilsBy qw/zip_by/;

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

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

  7. 0

    comment à propos de la Matrice de Transposition de-0.06 ?

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

  8. 0
    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]}];

    tableau doit être une matrice, j'.e des colonnes doit être égale pour chaque ligne du tableau d'origine sera détruit

    ce code ne sera pas utiliser de mémoire supplémentaire pour les transposer, x2 pour les autres bibliothèques, pour le grand tableau pour exemple 100x1M, il importe