Pb perl

désolée, 
heu je comprends pas vraiment la terminologie informatique mais je vais essayer de t'expliquer,
je te montre un fichier en entrée, un autre en sortie et j'ai rajouté des commentaires dans mon 
code.


voilà mon fichier d'entrée:


<?xml version="1.0" encoding="ISO-8859-1"?>
<grammar version="1.0" xml:lang="fr-fr" root="STREET"
	xmlns="http://www.w3.org/2001/06/grammar"
	xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
	xsi:schemaLocation="http://www.w3.org/2001/06/grammar 
	http://www.w3.org/TR/speech-grammar/grammar.xsd">


<rule id="STREET">
		<one-of>
			<item>route de leudelange<tag>route de leudelange</tag></item>
			<item>rue du village<tag>rue du village</tag></item>
		</one-of>
	</rule>
</grammar>


voici ce que j'obtiens avec mon code:

<?xml version="1.0" encoding="ISO-8859-1"?>
<grammar version="1.0" xml:lang="fr-fr" root="STREET"
	xmlns="http://www.w3.org/2001/06/grammar"
	xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
	xsi:schemaLocation="http://www.w3.org/2001/06/grammar 
	http://www.w3.org/TR/speech-grammar/grammar.xsd">


<rule id="STREET">
		<one-of>
			<item>route de leudelange<tag>route de leudelange</tag></item>
			<item>chemin de leudelange<tag>route de leudelange</tag></item>
			<item>rue du village<tag>rue du village</tag></item>
		</one-of>
	</rule>
</grammar>



Voici mon code
#!/usr/bin/perl

my @tab;

my $ligne;
#lecture des entrees d'un repertoire
opendir REP, "Test" or die "impossible d'ouvrir le repertoire";
@fichiers = readdir REP;
closedir REP;

#pour chaque fichier de mon répertoire
foreach $entree (@fichiers){
  if ($entree=~/xml/){
   #si le nom de mon fichier contient xml
    print "$entree\n";
    #j'ouvre le fichier en lecture
    open (IN,"<Test/$entree")||die "erreur fichier ouverture $!";
        #j'en ouvre un autre en écriture
    open (OUT,">Test/test$entree")||die "erreur fichier ouverture $!";
        while($ligne=<IN>){
        chomp($ligne);
        print OUT "$ligne\n";
        

#si dans mon fichier d'entrée entre le tag <item> et le tag <tag> je trouve la chaine 
#de caractère /route/
#je veux que dans mon fichier de sortie la chaine soit remplacée par /chemin/

           if ($ligne =~/<item>.*(route).*<tag>.*/){
               $ligne=~s/$1/chemin/;
             print OUT "$ligne\n";
             }

##jusque là ça marche

##c'est à partir de là que ça fonctionne pas, je veux dire que s'il trouve /route/ 
#il remplace aussi /route/ par /passage/ à cet endroit  entre ##<item> et le tag <tag>

            if ($ligne =~/<item>.*(route).*<tag>.*/){
             $ligne=~s/$1/passage/;
              print OUT "$ligne\n";

         ##ici ça n'a pas marché , en somme si dans mon fichier input, il trouve /route/ ,
# il recopie  la ligne mais il m'écrit deux autres avec les modifications voulues.
           
            }
     }

  }

}

closedir REP; 

j'espère que c'est plus explicite ;-)