parsing et incrémentation d'une variable

Bonjour,
J'ai encore un soucis avec le parsing :?
En fait je parse un fichier xml et je récupère les infos que j'écris dans un fichier text.
Je souhaiterais incrémenter une variable à chaque fois que je trouve une info différente dans le xml.
ex: j'ai bob1 bob2 bob3
bob2 different de bob1 donc $j++.Et de la mm facon avec bob2 et bob3

j'ai essayé pas mal de truc sans y arriver.

Sinon peut on faire une incrémentation à chaque fois qu'une ligne est écrite dans le fichier?

Merci.

Si les motis recherchés sont sur la même ligne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

open(FICH, accesfichier) or die "IMPOSSIBLE D'OUVRIR LE FICHIER"; my $ligne; my $compte_motifs_differents = 0; my $compte_toutes_lignes_motifs = 0;   while ($ligne = <FICH>){ if($ligne =~ /(motif1).*(motif2)/){ if ($1 ne $2){ $compte_motifs_differents ++; } $compte_toutes_lignes_motifs ++; } } close(FICH);

---

Tu peux faire quelque chose de ce genre en trouvant la bonne expression régulière afin de récupérer tes motifs si ils sont sur la même ligne.
Tes informations différentes sont-elles sur la même ligne?
Sans expliquer plus en détails ton problème, on peut difficilement t'aider.

Si tes motis sont sur différentes lignes

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 26 27 28 29

open(FICH, accesfichier) or die "IMPOSSIBLE D'OUVRIR LE FICHIER"; my $ligne; my $compte_motifs_differents = 0; my $precedent_motif = "initialisation"; while ($ligne = <FICH>){   if($ligne =~ /(motif1)/){ if($precedent_motif ne $1){ $compte_motifs_differents ++; $precedent_motif = $1; } }   if($ligne =~ /(motif2)/){ if($precedent_motif ne $1){ $compte_motifs_differents ++; $precedent_motif = $1; } }   if($ligne =~ /(motif3)/){ if($precedent_motif ne $1){ $compte_motifs_differents ++; $precedent_motif = $1; } }   } close(FICH);

---

A toi de voir si plusieurs motifs peuvent être trouver sur la même ligne ou non. Si non, tu peux utiliser des elsif au lieu des 2 derniers if.

Citation:

---

Sinon peut on faire une incrémentation à chaque fois qu'une ligne est écrite dans le fichier?

---

A l'endroit où dans ton code tu écris dans un fichier, tu incrémentes une variable.

Code:

---

1 2	print $out_file "blablabla"; $lignes_fich_sortie ++;

---