balise XML et regexp

Version imprimable

11/03/2011, 14h26
gianffranco

balise XML et regexp
Bonjour à tous,

Ne pouvant utiliser les modules de parsing XML, je suis obligé de m'attaquer à un fichier xml avec les regexp :(

Je traite une chaine renvoyée par un "find . -type f| xargs grep <chaine>" (unix) qui est de la forme:

nom_du_fichier_trouve1.xml:<CM><CA>86767</CA>564654<LV>54654897987897<Q>987</Q><Q>48</Q></LV></CM>
nom_du_fichier_trouve2.xml:<CM><CA>7786786</CA>86768<LV>56565656<Q>96</Q><Q>65</Q></LV><LV>6565685656<Q>96</Q><Q>65</Q></LV></CA></CM>

Je désire retourner à l’écran les occurrences de .. de la forme
89;79;87897<Q>987</Q><Q>48</Q>
56;5;6<Q>96</Q><Q>65</Q>
56;5;6<Q>96</Q><Q>65</Q>

J'ai un code qui fonctionne mais qui ne fait pas la distinction du nombre d'occurence de .. et qui ressemble à ça:
Code:

1 2 3 while ( /(\<I\>.*;\<\/I\>)/msg ) { print $1; };
Pourriez vous m'aider ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl
use warnings;
use strict;
 
my @chaine = (
'nom_du_fichier_trouve1.xml:<CM><CA>86767</CA>564654<LV>54654<I>897987897<Q>987</Q><Q>48</Q></I></LV></CM>',
'nom_du_fichier_trouve2.xml:<CM><CA>7786786</CA>86768<LV>5656<I>5656<Q>96</Q><Q>65</Q></I></LV><LV>656568<I>5656<Q>96</Q><Q>65</Q></I></LV></CA></CM>',
);
 
foreach my $data ( @chaine ) {
  my @motif = $data =~ m{(<i>.+?</i>)}msgi;
  print "==========\n";
  print "CHAINE : $data\n";
  print "Motif : @motif\n";
  print "==========\n";  
}

ou si ta chaine contient plusieurs lignes

Code:

my @motif = $chaine =~ m{(.+?)}msgi;

Citation:

Envoyé par djibril

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl
use warnings;
use strict;
 
my @chaine = (
'nom_du_fichier_trouve1.xml:<CM><CA>86767</CA>564654<LV>54654<I>897987897<Q>987</Q><Q>48</Q></I></LV></CM>',
'nom_du_fichier_trouve2.xml:<CM><CA>7786786</CA>86768<LV>5656<I>5656<Q>96</Q><Q>65</Q></I></LV><LV>656568<I>5656<Q>96</Q><Q>65</Q></I></LV></CA></CM>',
);
 
foreach my $data ( @chaine ) {
  my @motif = $data =~ m{(<i>.+?</i>)}msgi;
  print "==========\n";
  print "CHAINE : $data\n";
  print "Motif : @motif\n";
  print "==========\n";  
}

ou si ta chaine contient plusieurs lignes

Code:

my @motif = $chaine =~ m{(.+?)}msgi;

Ça fonctionne
Merci djibril :ccool:

11/03/2011, 16h30
djibril

Petit tag résolu :ccool: !