substituer une chaine par une autre

Marsh Posté le 15-03-2005 à 16:14:29

salut à tous, je débute en perl,
je veux faire un prog qui lit et modifie à la volée un fichier

ex, j'ai le fichier suivant:

Code :

<map version="0.7.1">
<node TEXT="root">
<node TEXT="droite" POSITION="left">
<node LINK="bas.mm" TEXT="lien"/>
</node>
<node COLOR="#ff3333" TEXT="gauche2" POSITION="right">
<edge COLOR="#d4d0c8"/>
<node TEXT="gauche2.1">
<edge COLOR="#d4d0c8"/>
<node LINK="bas.mm" TEXT="lien"/>
<node TEXT="gauche2.1.1"/>
</node>
</node>
</node>
</map>

et je voudrais par ex remplacer tous les mot TEXT par texte.
j'ai fais le pgr suivant:

Code :

#!/usr/bin/perl
$fichier = "aaa.mm";
open(FILE,"+<$fichier" ) || die("Erreur de lecture de $fichier, Erreur: $!\n" );
#print("Quel mot rechercher : " );
$cherche = $ARGV[0];
$ligne = 0;
$sum = 0;
$cond = 0;
while(<FILE> ){
$cond=$sum;
$ligne +=1;
$sum += (s/$cherche/$cherche/g);
if($cond != $sum){
print("Ligne $ligne ==> " );
print("$sum\n" );
}
}
close(FILE);
print("----------------------------------------------------\n" );
print("Votre fichier contient $sum fois le mot '$cherche'\n" );

il me permet de détecter et non de substituer, et je vois pas trop comment faire.

si quelqu'un a une idée

merci bcp

Marsh Posté le 15-03-2005 à 16:14:29

Marsh Posté le 15-03-2005 à 16:31:30

edit ====> j'avais mal lu le code

si tu veux substituer utilises l'opérateur "=~ s/blabla/blabla/"
sinon si tu fais juste un "= s/blabla/blabla" il te retournera 1 chaque fois qu'il aura réussit à substituer

Message édité par couak le 15-03-2005 à 16:42:28

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *