Discussion :

[gianffranco]

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

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


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

Code :

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

1
2
3
while ( /(\<I\>.*;\<\/I\>)/msg ) {
	print $1; 
};

Pourriez vous m'aider ?

[djibril]

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

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

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

[gianffranco]

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

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

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

Ça fonctionne
Merci djibril

[djibril]

Petit tag résolu !