[regex] "parsing de paramètres"

Version imprimable

25/07/2006, 11h06
Spoutnik

[regex] "parsing de paramètres"

Hello

J'ai une chaine du type 'ab=123456,cd=852,ef=7859abc,yz=Paris' et je voudrais récupérer la valeur de la propriété 'ef'.

Si qq un peut me donner la solution, j'ai un peu de mal avec les regexp :oops:

Déso si le problème a déja été traité, je l'ai pas trouvé.

thx

++

PS : l'ordre des propriétés peut changer.

voila la solution ;)

Code:

1
2
3
4
5
6
7
8
9
 
#!/usr/bin/perl
 
my $string = 'ab=123456,cd=852,ef=7859abc,yz=Paris';
if ($string =~ /ef=(.+?)(,|$)/)
{
	my $value = $1;
	print("trouvé : $value\n");
}

Autre solution un poil plus longue:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
 
my $string = 'ab=123456,cd=852,ef=7859abc,yz=Paris';
 
my @array = split(',', $string);
foreach (@array)
{
	if (/^ef=(.+)$/)
	{
		my $value = $1;
		print "trouvé : $value\n"
	}
}

25/07/2006, 11h20
Arioch
Un exemple qui en vaudra bien un autre (surtout lorsque Jedai ou Pospos auront mis leur nez dans ce topic :mouarf: )

J'utilise ici un hash pour éclater les données de ta chaîne à traiter :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 use strict; my %hash; my $chaine = "ab=123456,cd=852,ef=7859abc,yz=Paris"; @_ = split(/,/, $chaine); foreach(@_) { $hash{$1} = $2 if (/(.+)=(.+)/); } print "$hash{ef}\n";
Mon exemple te permet de conserver trace de toutes tes valeurs

pour en faire une hash :
(non testé)
Code:

1 2 3 4 my $chaine = 'ab=123456,cd=852,ef=7859abc,yz=Paris'; my %hash = split(/[=,]/, $chaine); print $hash{ef};
si tu veux juste chopper la valeur de certain parametres tu peux aussi conserver ls arguments dans une chaine et utiliser une regepx à chaque fois:

(toujours non testé)
Code:

1 2 3 4 5 6 7 8 9 10 my $chaine = 'ab=123456,cd=852,ef=7859abc,yz=Paris'; print get_arg($chaine, 'ef'); sub get_arg { if ($_[0] =~ /(?:^|,)$_[1]=([^,]*)/) { $1 } }
franchement je prefere la premiere solution, mais la seconde approche est parfois meilleure dans certains cas precis (genre quand on n'a besoin que d'extraire un petit nombre de chose d'un gros string, mais ca n'est pas le cas ici).
De plus pour la seconde approche le mieux est d'utiliser un cache pour la regexp.

genre:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 my $chaine = 'ab=123456,cd=852,ef=7859abc,yz=Paris'; print get_arg($chaine, 'ef'); { my %Cache; sub get_arg { if ( $_[0] =~ ($Cache{$_[1]} ||= qr/(?:^|,)$_[1]=([^,]*)/) ) { $1 } } }
mais la encore ca ne sert pas à grand chose dans le cas qui nous interesse ici

Perso je me sert de cette technique pour traiter mes entetes HTTP: je trouve cette approche plus rapide la plupart du temps que d'utiliser HTTP::Headers qui decoupe systematiquement les entetes et els place dans une hash, et en plus ca permet de conserver le string original intacte

25/07/2006, 11h47
Spoutnik

merci!

Je suis en train de me demander si j'ai posté dans le bon forum : je suis largué 8O :roll:

A la base, je cherche à trouver la bonne regexp pour pouvoir créer un index dans une base postgres. Donc, malheureusement, je peux pas utiliser de script "complexe".
Il va falloir que je cherche comment adapter ca à mon problème, et à ce que supportte Pg.

S'il existe une solution en regexp 'pur' :aie:

Merci à tous.
25/07/2006, 12h01
pospos

et tu peux utiliser ce qui est capturé par la regexp pour faire ton index?
Et Pg reconnait les trucs genre "(?: )" ?

si oui alors tu peux faire ca:
/(?:^|,)ef=([^,]*)/
25/07/2006, 12h15
Spoutnik

Citation:

Envoyé par pospos

et tu peux utiliser ce qui est capturé par la regexp pour faire ton index?

Oui, Pg permet de faire des index grâce au résultat de fonctions 'immutable' (non dépendantes des données en base en gros )
Je ne sais plus depuis quelle version, mais ca fait déjà un petit moment que c'est possible.

Citation:

Envoyé par pospos

Et Pg reconnait les trucs genre "(?: )" ?

si oui alors tu peux faire ca:
/(?:^|,)ef=([^,]*)/

MERCI !!!

Pour ceux que ca interesserait :

Code:

select substring ( 'ab=123456,cd=852,ef=7859abc,yz=Paris' from '(?:^|,)ef=([^,]*)')

encore merci de la part de mes cheveux et de la boite d'aspirine :mrgreen: :aie:

PS : si t as le courage d'expliquer la syntaxe, je suis preneur
25/07/2006, 13h39
pospos

le (?: ) sert à grouper mais sans capturer
en gros on a l'avantages des parentheses mais on ne capture rien (ca aurait faussé le resultat, et en plus ca ralenti)

donc au depart on cherche soit une virgule soit le debut de la chaine (^), ensuite on chercher "ef=", puis derriere on capture tout ce qui n'est pas une virgule (ou jusqu'à la fin de la chine si c'est le dernier argument)