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