Discussion :

[Homer.j]

Bonjour,

voilà mon problème, je dois lire dans un fichier 2 lignes:
la première ressemble à ça:
ABC123|ABC456|DEF987|DEF654|DEF321...
La 2 eme ligne correspond aux valeurs de la 1 e ligne:
10|2|54|65|12

je dois regrouper les noms de la premiere ligne si les 3 premieres lettres sont identiques, (ABC: ABC123, ABC456 et DEF: DEF987, DEF654, DEF321), ABC devra contenir le total des ABC soit ABC=10+2=12 idem pour DEF, DEF=54+65+12=131.

Je ne sais absolument pas comment procéder (je débute en Perl). Pouvez vous m'aidez ?

Merci

[Philou67430]

Une idée comme çà :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
my %groupe = (); # pour sauver les groupes (les clés seront ABC, DEF, ...)
my @ligne1 = split /\|/, <STDIN>;
my @ligne2 = split /\|/, <STDIN>;
 
foreach my $index (0 .. $#ligne1) {
  # On extrait le groupe de la ligne 1
  my ($groupe_name) = $ligne1[$index] =~ /^([A-Z+)/i;
  # On ajoute dans ce groupe, la valeur correspondante de la ligne2
  $groupe{$groupe_name} += $ligne2[$index];
}

Je rapidement testé sur l'exemple donné.

[Olivier.p]

Un débutant passe et s'écrit : "Super le perl ! Il est capable de comprendre que si "ABC" existe déjà faut mettre à la suite et pas crée une erreur genre : "indice déjà existant" ?
Le débutant regarde alors son code : "si l'indice existe déjà dans le tableau alors écrire à la suite, sinon le crée et..." Met un coup sélectionneur dessus et appuie sur Delete. Allez on reprend avec des listes

[Philou67430]

Attention cependant, car le mécanisme d'autovivification a des effets pervers qu'il faut connaitre, et dont les effets de bord peuvent avoir des répercussions inattendues.

Si j'écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
%mon_hash = ();
if (exists $mon_hash{cle1}->{sous_cle1}) {
  # cle1 est autovivifié
}
 
use Data::Dumper;
print Data::Dumper->Dumper([\%mon_hash], [qw(*mon_hash)]);

j'obtiens :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
%mon_hash = (
              'cle1' => {
                          'sous_cle1' => 1
                        }
            );

La clé cle1 est créée et renvoie sur une référence de hash vide.

Edit : j'ai changé l'exemple pour un cas plus révélateur du problème lié à l'autovivification.