Discussion :

[sterfield]

Bonjour à tous,

J'ai un soucis qui peut sembler simple, mais sur lequel je m'arrache les cheveux depuis un moment déjà. Je précise que je connais un peu Perl (principalement en lisant les PDF ici), mais que je suis loin d'être un développeur très performant

J'ai une structure comme ceci :

Code :

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

1
2
3
$struc{$nom} = {
first => [tableau de valeur]
};

J'attaque un fichier où chaque ligne contient 2 informations, séparées par ";" :

• le nom
• une valeur

Mon but ici est de parcourir tout mon fichier, extraire le nom, et stocker la valeur dans la structure. Si je trouve plusieurs fois le même nom, je voudrais stocker toutes les valeurs les unes à la suite des autres dans le tableau.

Exemple de fichier :
toto;1
toto;2

J'attaque la 1ere ligne, cela donne :

Code :

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

1
2
3
$struc{"toto"} = {
first => [1]
};

2eme ligne :

Code :

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

1
2
3
$struc{"toto"} = {
first => [1,2]
};

Mon code Perl ressemble à ceci :

Code :

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

1
2
3
$struc{$nom} = {
first => push(@{$struc{$nom}->{first}},$valeur)
};

Ca compile mais le script réagit bizarrement, des fois il ajoute une valeur, d'autres fois non.

J'ai du rater quelque chose, mais je n'arrive pas à trouver quoi.

Tout aide est la bienvenue, je suis en train de devenir chauve

[iblis]

Tu te trompes dans la manière de remplir ta table associative (en la bouclant sur elle-même). Ce que tu veux c'est plutôt ça :

Code :

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

1
2
3
4
5
6
my %hash;
while (<>) {
  chomp;
  (my $key, my $value) = split(';');
  push @{$hash{$key}->{first}}, $value;
}

Remarque que l'autovivification (Perl crée les structures intermédiares selon tes besoins) c'est drôlement sympa comme méchanisme.

[sterfield]

Bonjour !

Effectivement, le petit code que tu m'as donné fait le boulot et le fait bien

Je vais tâcher de me renseigner un peu sur l'autovivification.

Merci pour tout !

Problème résolu