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 : Sélectionner tout - Visualiser dans une fenêtre à part
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";
  }
 
    }}