Discussion :

[bennyben87]

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.

[Jasmine80]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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
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.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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