Discussion :

[danathane]

Hello, j'aurais besoin d'un coup de amin sur une regex.
voilà déjà mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
my $message ="<CR_id>123456789</CR_id>" ;
# exemple de $message :<WRK_id>123456</WRK_id>
#ou  <CR_id>123456789</CR_id>
if ($message =~ m/<(WRK_id|CR_id)>(.+?)<\/$1>/)
{
	#my $tmp = trim($1);
	$workid = $tmp;
	print $2."\n";
}

le but utiliser le premier argument pour le placer à la fin de la regex et récupérer ce qu'il y a entre les deux balises.
le truc c'est de ne pas accpeter de truc du genre :<CR_id>123456</WRK_id> ou l'inverse. Est ce que vous pourriez me donner une piste?

Merci

[Beniou]

La problème est que tu te sers de $1 dans ta regexp : le réferencement de ce qui a été trouvé par tes premières parenthèses matchantes est : "\1"

Ce code devrait fonctionner

Code :

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

1
2
 
if ($message =~ m/<(WRK_id|CR_id)>(.*)<\/\1>/)

[danathane]

Ah d'accord ok. Merci