Discussion :

[kenzo]

Bonjour,

Je suis débutant en perl et je voudrais pouvoir récupérer la valeur correspondant à Identifiant dans le fichier:

mon fichier =
< Tocken Identifiant="Ma chaine/TITI" Id="deid1" />
< Tocken Identifiant="Ma chaine/TOTI" Id="deid2" />
< Tocken Identifiant="Ma chaine/TATI" Id="deid3" />
< Tocken Identifiant="Ma chaine/TUTI" Id="deid4" />

Comment faire pour recupérer la chaine correspondant à Identifiant sans utiliser un Parser XML et en utilisant les expressions régulières?

Merci d'avance.

[iblis]

Si ta syntaxe est régulière et que tu n'as de niveaux imbriqués qui t'ennuient, tu peux t'en sortir avec une regex toute simple

Code :

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

1
2
3
while (<>) {
    print $1, "\n" if /^< Tocken Identifiant="(.*?)"/; 
}

Tu peux raffiner en cas de besoin.

[kenzo]

Bonjour IBLIS,

Ca ne marche pas: voici le code:

@file = <MonFichierXML>;
foreach $element (@file)
{
if ($element =~ /^Tocken Identifiant="(.*?)"/)
{
print out $1, "\n";
}
}
close file;

Merci pour ton aide.

[kenzo]

Oups,

voici le code:

@file = <MonFichierXML>;
foreach $element (@file)
{
if ($element =~ /^< Tocken Identifiant="(.*?)"/)
{
print out $1, "\n";
}
}
close file;

[Jedai]

Met des balises CODE autour de ton code (avec le bouton # de l'interface du forum), ce sera beaucoup plus lisible.

Code :

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

1
2
3
4
5
6
7
@file = <MonFichierXML>;
foreach $element (@file) {
  if ($element =~ /^< Tocken Identifiant="(.*?)"/) {
    print out $1, "\n";
  }
}
close file;

D'où viennent "out", "file", "MonFichierXML" ? Où ouvres-tu ton fichier ? Peut-être faudrait-il réviser les bases de la manipulation de fichier, notre FAQ a de bons exemples.

Note que le code que t'as donné iblis marche parfaitement, il suffit que tu mettes :

Code :

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

1
2
3
4
5
#!/usr/bin/perl
 
while (<>) {
    print $1, "\n" if /^< Tocken Identifiant="(.*?)"/; 
}

Dans un fichier extractXML.pl, puis tu peux l'appeler comme ça :

Code :

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

perl extractXML.pl "Chemin de ton fichier xml"

à partir de la ligne de commande.

--
Jedaï