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";
}
}} |