bonjour!
j'ai un script perl qui recupere les lignes d'un fichier:
 
#!/usr/bin/perl -w
open(PARSE,'/tmp/FILETOP') or err_trap(" Files not found" );
while ( $line=<PARSE> ) {
       ## parse each xml file
                print "NE Name :$line";
       if ( $line=<PARSE> ) {
                #print "NE $line";
       }
       if ( $line=<PARSE> ) {
               # print "NE Type $line";
                @champ = split(/#/,$line);
                $result = $champ[0];
                print "NE Type :$result";
       }
       if ( $line=<PARSE> ) {
                print "\nNE RELEASE :$line";
       }
                                                                                                                             
}
close(PARSE);
mon probleme c'est que je veux tester si $result="text1" je veux le remplacer par "texte2" et j'affiche $result.
svp quelqu'un  pourra m'aider?
merci

Bon déjà, je met ton code avec la présentation comme y faut
 

 
Et qu'est-ce que c'est que ces lignes bizarres là ? Y a des if ( $line=<PARSE> ) partout dans ton code. Je me demande si tu sais bien à quoi ça sert ?

euh ... franchement t'as absolument besoin d'un script perl pour faire ça??? Surtout que celui-là fait n'importe quoi...
un petit:

et on en parle plus

Tout dépend dans quel cadre il doit bosser ce code.
 
Si c'est un novice Perl, mieux vaudrait l'aider sur une soluce en Perl que passer par Sed.
 
Même si comme le dit la pub, "Sed c'est bien"  

 
Et si salim81 tient réellement à le faire en PERL, un simple :

fera l'affaire.

vu le code je ne doute pas qu'il soit novice perl... Mais avant de l'aider sur une solution, il faut a mon avis qu'il relise 2/3 tutorials sur la lecture des fichiers en perl
 

 
Ca marche aussi si on le fait comme ça ?