Discussion :

[Spoutnik]

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

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.

[MarneusCalgarXP]

voila la solution

Code :

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

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");
}

[MarneusCalgarXP]

Autre solution un poil plus longue:

Code :

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

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

[Arioch]

Un exemple qui en vaudra bien un autre (surtout lorsque Jedai ou Pospos auront mis leur nez dans ce topic )

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

Code :

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

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

[pospos]

pour en faire une hash :
(non testé)

Code :

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

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 :

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

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 :

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

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

[Spoutnik]

merci!

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

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'

Merci à tous.

[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=([^,]*)/

[Spoutnik]

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.

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

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

MERCI !!!

Pour ceux que ca interesserait :

Code :

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

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

PS : si t as le courage d'expliquer la syntaxe, je suis preneur