programme perl:manipulation fichier

bonjour
je suis débutante en programmation perl et je veux écrire un petit prog qui permet de lire un fichier texte:
a -> b
a -> cd
c -> h
c -> d
b -> k
et affiche
a -> b,cd
c -> h,d
b ->k
j'ai commencer d’écrire ce code mais je n'arrive pas à trouver la résultat désirable:?:? merci de m'aider

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

#!/usr/local/bin/perl print "Entrez le nom du fichier d'etude \n\n"; $fichier1=<STDIN>; chomp($fichier1);     open(DICO1, "$fichier1")|| die "Problème d'ouverture : $!"; my $val=0; while ($ligne=<DICO1>){   my ($droite, $gauche) = split /->/, $ligne; s/\s+$// for ($droite, $gauche); # retirer espace à la fin des deux règles s/^\s+// for ($droite, $gauche); # retirer espace au début des deux règles   @val=$droite; foreach $v (@val){ $m=$gauche; if ($v==$droite) {     print "$v -> $m\n"; }   }}

---

Bonjour,

déjà, j'ai l'impression que tu mélanges la droite avec la gauche. ;)

Ici, j'utiliserais sans doute un hachage de tableaux, mais comme tu es débutante, je vais essayer de donner une solution un peu plus simple, utilisant un hachage simple. L'idée est d'utiliser un tableau de hachage dont les clefs seront les nombres de gauche (a, b et c) et les valeurs des chaînes de caractères concaténant au fur et à mesure les valeurs trouvées dans les colonnes de droite.

J'ai mis les données en entrée dans une variable dans le programme pour ne pas devoir créer un nouveau fichier, mais ça marche essentiellement pareil.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

use strict; use warnings; my $data = "a -> b a -> cd c -> h c -> d b -> k";   open my $DICO, "<", \$data or die "Ouverture impossible du fichier $!"; # meilleure syntaxe pour ouvrir un fichier my %hachage; while (my $ligne = <$DICO>) { $ligne =~ s/\s+//g; # enlève tous les espaces, à ajuster si les données sont différentes de l'exemple my ($key, $val) = split /->/, $ligne; if (exists $hachage{$key}) { $hachage{$key} .= ",$val"; # le hash existe déjà pour cette clef, on concatène les chaînes } else { $hachage{$key} = $val; # On crée le hash pour cette clef. } } close $DICO; print "$_ -> $hachage{$_}\n" for sort keys %hachage; # relecture du hachage et impression du résultat

---

Ce qui donne:

Code:

---

1 2 3 4

a -> b,cd b -> k c -> h,d

---