|
|
|
|
Bonjour,
j'ai une liste de données que j'aimerais agréger pour faire un tableau croisé, mais je ne sais pas coment on gère les tableaux asociatifs à deux dimensions en perl.
Un exemple, en entrée (dans un tableau) :
baie taille machine (entêtes de colonnes pour info)
A 50 machine1
A 20 machine1
B 5 machine1
A 5 machine2
C 10 machine2
en sortie je voudrais la somme de la deuxième colonne par machine et par baie :
machine A B C (entêtes de colonnes pour info)
machine1 70 5 0
machine2 5 0 10
J'ai imaginé créer un tableau à double entrée, mais je souhaiterais faire les additions de manière rapide sans avoir à parcourir le tableau à chaque fois. J'ai donc été voir du côté des tableaux associatifs qui semblent être la réponse à mon besoin, mais j'ai un peu de mal à comprendre comment faire tourner tout ça, et bien sûr je suis susceptible de rajouter des colonnes d'un traitement à l'autre...
Merci d'avance pour l'aide.
A+ Blux "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"
Re,
#!/usr/bin/perl
use strict;use warnings;
my %h;
while(<DATA>){
/(\w+)\s*(\w+)\s*(\w+)/;
push @{$h{$3}{$1}},$2;
push @{$h{$3}{'A'}},0 unless exists $h{$3}{'A'};
push @{$h{$3}{'B'}},0 unless exists $h{$3}{'B'};
push @{$h{$3}{'C'}},0 unless exists $h{$3}{'C'};
}
print "machine A B C\n";
for my $k(keys %h){
print "$k";
for my $kk(sort keys %{$h{$k}}){
print " ",eval ( join "+",@{$h{$k}{$kk}});
}
print "\n";
}
__END__
A 50 machine1
A 20 machine1
B 5 machine1
A 5 machine2
C 10 machine2
Resultat root@debian:~/src# perl blux.pl machine A B C machine1 70 5 0 machine2 5 0 10-- lami20j |
et bien sûr je suis susceptible de rajouter des colonnes d'un traitement à l'autre...
lami20j@debian:~/trash$ cat ccm.pl
#!/usr/bin/perl
use strict;use warnings;
my %h;
my $l;
my @col = 'A' .. 'F';
while(<DATA>){
next if /^$/;
/(\w+)\s*(\w+)\s*(\w+)/;
push @{$h{$3}{$1}},$2;
for $l(@col){
push @{$h{$3}{$l}},0 unless exists $h{$3}{$l};
}
}
print "machine @col\n";
for my $k(keys %h){
print "$k";
for my $kk(sort keys %{$h{$k}}){
print " ",eval ( join "+",@{$h{$k}{$kk}});
}
print "\n";
}
__END__
A 50 machine1
A 20 machine1
B 5 machine1
A 5 machine2
C 10 machine2
A 50 machine1
A 20 machine1
B 5 machine1
A 5 machine2
C 10 machine2
D 50 machine1
D 20 machine1
E 5 machine1
F 5 machine2
C 10 machine2
A 50 machine1
A 20 machine1
B 5 machine1
A 5 machine2
C 10 machine2
lami20j@debian:~/trash$ perl ccm.pl
machine A B C D E F
machine1 210 15 0 70 5 0
machine2 15 0 40 0 0 5
lami20j |
Afficher tableau php 2 puissance Afficher un tableau en 2 dimension en java Algorithme tableau à 2 dimensions C tableau a 2 dimensions Calculer le produit des éléments d'un tableau à 2 dimension vba Entrer valeur dans un tableau a 2 dimension php Fujitsu-siemens l22w-2 dimensions Initialiser tableau string 2 dimensions Java renverser un tableau a deux dimension Langage c allocation dynamique d'un tableau a 2 dimensions Php affichage html tableau croisé 2 entrées Remplir tableau 2 dimension php Retourner un tableau à 2 dimension en c Structure pointeur tableau 2 dimensions Tableau 2 dimensions java Tableau dynamique 2 dimensions Tableau à 2 dimension c Vector 2 dimensions
