Discussion :

[tagada_tagada]

Bonjour,

je souhaiterai parser un fichier dans lequel sera réécrit les lignes de cette forme :

Code :

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

TTEET <toto>35</toto>

pour être transformé en :

Code :

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

 <toto>35</toto>

C'est a dire que les caracteres qui sont avant les balises sont supprimées mais les espaces conservés.
Quel est la regexp qui permet de faire cela?

Je n'arrive pas a l'écrire.

Merci

[Jasmine80]

Quel est la regexp qui permet de faire cela?
Je n'arrive pas a l'écrire.

Tu pourrais déjà nous montrer tes essais

[tagada_tagada]

Tu pourrais déjà nous montrer tes essais

Code :

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
 
my $val = "TTEET <toto>35</toto>";
my $tmp = $val;
 
$tmp = s/.*(\s*)<(.*?)>(.*<\/1>\s*)/$1<$2>$3/;
 
print $tmp;

Avec la regexp que j'ai écrit,je veux aussi pouvoir parser une ligne de la forme :

Code :

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

TTEET <toto>

[Jasmine80]

Tu peux directement faire une substitution de ta variable

Code :

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

$var =~ s/.*?(\s*<)/$1/;

ou sinon récupérer la portion d'intérêt

Code :

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

1
2
3
if($var =~ /.*?(\s*<.*)$/){
	print $1."\n";
}

Tu sembles vouloir récupérer tous les éléments individuels de ta ligne ... en as-tu réellement besoin ou veux-tu simplement comme déclarer dans le premier message supprimer les caractères précédent les balises qui ne sont pas des espaces .

Tu sembles également vouloir vérifier que la balise ouvrante est la même que celle fermante ... est-ce nécessaire?

[Jasmine80]

$tmp = s/.*(\s*)<(.*?)>(.*<\/1>\s*)/$1<$2>$3/;

Pour ce qui est de ton expression régulière, voici le problème corrigé :

$tmp =~ s/.*?(\s*)<(.*?)>(.*?<\/\2>\s*)/$1<$2>$3/;

$tmp =~ s/.*?(\s*)<(.*?)>(.*?<\/\2>\s*)/$1<$2>$3/;

Dans le premier .*, si tu ne mets pas de point d'interrogation après l'astérisque, celle-ci va englober tous les espaces suivant TTEET et ton (\s*) sera vide.

[s.n.a.f.u]

Dans le premier .*, si tu ne mets pas de point d'interrogation après l'astérisque, celle-ci va englober tous les espaces suivant TTEET et ton (\s*) sera vide.

C'est vrai, mais il y a une façon pour encore mieux contrôler le quantificateur * que de simplement le qualifier "ungreedy".

J'applique le plus souvent possible une technique de ce type :

Code perl :

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

1
2
 
$tmp =~ s/[^\s<]*(\s*)<([^>]*)>([^<]*<\/\2>\s*)/$1<$2>$3/;

Plutôt que d'utiliser le point générique, je précise expressément les caractères qui ne doivent pas faire partie du matching.
Je trouve que cela m'induis moins en erreur et, cerise sur le gâteau, cela améliore les performances.