Discussion :

[mbhfr06]

Bonjour
J'ai un problème avec ce script perl. En fait je voudrai recherche dans une balise xml une chaine en utilisant un motif avec grep et cela ne donne rien en sortie et je travail sur windows. voila le script:

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
#!/usr/bin/perl -w
open FICHIER,"< 289.xml" or die "Le fichier n'existe pas !";
open WRITER,"> decode1.txt" or die "Le fichier ne peut être édité !\n";
my $i=0;  
my $mot="article[1]/body[1]/section[11]/section[1]/p[2]/collectionlink";
while ($ligne = <FICHIER>){
      if($i%2){
         grep (/$mot/,decode1);
             } 
         #print $lign,"\n";
         }
      }  
$i++;
 
close FICHIER;
close WRITER;

Merci d'avance pour votre aide.

[djibril]

pourquoi ne pas utilisé les expressions régulières? Lit la FAQ, c bien expliqué.
Sinon pense à mettre ton code sous balise code sur le forum pour une meilleurs lisibilité la prochiane fois.

[ankou29666]

pourquoi ne pas carrément utiliser un module parseur XML ???

ça fait tout le boulot pour toi, ça t'éviterait d'avoir à réinventer l'eau chaude ...