Extraire un élément faisant partie d'une variable dans une regexp

Version imprimable

17/04/2009, 11h40
byrdo

Extraire un élément faisant partie d'une variable dans une regexp

Bonjour,

Voilà, je développe un outil en perl actuellement, et j'ai besoin d'extraire des caractères d'une variable que j'ai placé dans une regexp.

J'illustre directement, ce sera plus clair.

Citation:

my $req = 'select machin from truc where machin = $1';

my $separateur = "\$";

my $variable = "toto";

$1 n'est pas une variable, mais le séparateur suivi du chiffre "1".

Le séparateur est destiné à être remplacé par la variable par la suite, qui contient elle une chaine de caractère. J'ai mis "toto" pour l'exemple.

J'ai alors la regexp suivante :

Citation:

$req =~ s/\Q$sep/$var/;

print "reqfinal = $req\n"; # select code from client where code = toto1

Ceci permet donc de remplacer mon séparateur par la variable.

Mais ce que j'aimerais également faire, c'est extraire le "1" dans une variable que je puisse utiliser par la suite, et également faire en sorte de n'avoir pour que :

Citation:

# select code from client where code = toto

dans mon résultat, sans le "1" donc.

Merci pour votre aide.:D

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl
 
 
use strict;
use warnings;
 
 
my $req = 'select code from client where code = $1';
my $sep = '\$';
my $var = "toto"; 
 
 
 
if ($req =~ m/(.*?)$sep(\d+)/){
 
	$req = $1.$var;
	my $num = $2;
 
	print "req : $req\tnum = $num\n";
	# req : select code from client where code = toto	num = 1
}

Citation:
Envoyé par Jasmine80
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 #!/usr/bin/perl use strict; use warnings; my $req = 'select code from client where code = $1'; my $sep = '\$'; my $var = "toto"; if ($req =~ m/(.*?)$sep(\d+)/){ $req = $1.$var; my $num = $2; print "req : $req\tnum = $num\n"; # req : select code from client where code = toto num = 1 }
Ca a l'air plutôt bien, je n'arrive par contre pas à le faire fonctionner.
Ou plutôt, le print n'affiche rien, malgré le fait que le code est bon.

Puis-je avoir plus d'informations sur les motifs utilisés en rouge :

Citation:

if ($req =~ m/(.*?)$sep(\d+)/){

pour matcher le "'select code from client where code =" ??

Je connais le fonctionnement de chacun, mais je ne saisis pas comment ainsi réunis, ils matchent la chaine.

Merci beaucoup en tout cas.:king:

17/04/2009, 12h19
Jasmine80

Recherche de

Code:

(.*?)$sep(\d+)

.*? n'importe quel caractère de 0 à x fois select code from client where code =

Le point d'interrogation sert à rendre la recherche non gourmande (dans ce cas ci, il est inutile mais j'ai pris l'habitude de l'utiliser avec .*).

suivit de $sep $

suivit de \d+ de 1 à x chiffres 1

les parenthèses servent à récupérer les données dans $1 et $2

Il a-t-il autre chose que tu ne comprennes pas?
17/04/2009, 12h25
byrdo

J'avoue que c'était surtout l'usage du ? qui m'a interpelé, pensant que le .* suffisait.

J'avais compris le reste.

Merci beaucoup, ça devrait fonctionner, même si mon affichage est défaillant pour le moment.

Je reposte ici après débogage, dès que c'est opérationnel.

Merci.;)
17/04/2009, 14h25
byrdo

Re,

Alors pour le moment, ça ne marche pas.

Ca ne m'affiche pas le contenu du if (les prints).

Je crains que le fait que le contenu de "$sep" soit le caractère "$" n'entraine la fin de la chaine de caractère, et du coup mon match n'est pas vérifié, ne réalisant donc pas le contenu du if.

Une idée?

EDIT : Effectivement, quand je mets autre chose qu'un dollar en séparateur, comme le "%" par exemple, la regexp de Jasmine fonctionne.

Il me faudrait donc résoudre le cas particulier du "$" en tant que séparateur.
17/04/2009, 14h39
Jasmine80

Chez moi, le code que je t'ai donné fonctionne bien avec le $.

... as-tu bien utilisé des simples quotes?

Code:

my $sep = '\$';

Si tu laisses des doubles quotes quand tu initialises la variable, le backslah est supprimé.
17/04/2009, 14h48
byrdo

Citation:

Envoyé par Jasmine80

Chez moi, le code que je t'ai donné fonctionne bien avec le $.

... as-tu bien utilisé des simples quotes?

Code:

my $sep = '\$';

Si tu laisses des doubles quotes quand tu initialises la variable, le backslah est supprimé.

Bien vu, j'avais laissé des doubles cotes dans la fonction qui initialise mon séparateur.

J'avais omis de vérifier cela, car au départ de mon développement, je mettais "toto" en variable, donc je ne m'étais pas soucié des cotes.

J'aurais peut-être d'autres difficultés liées aux regexp, vu que c'est une partie délicate du développement de mon outil (même si pour le coup, ce que j'ai demandé ici était à ma portée, faut que j'ouvre un peu plus les yeux ! 8O), donc j'aurais sûrement encore besoin de tes précieux conseils, ou ceux d'autres personnes.

Encore Merci.:mrgreen:
17/04/2009, 14h52
Jasmine80

Citation:

Envoyé par byrdo

J'aurais peut-être d'autres difficultés liées aux regexp, ... donc j'aurais sûrement encore besoin de tes précieux conseils, ou ceux d'autres personnes.

Pas de problème, le forum est là pour ça :)

Il vaudrait mieux indiquer que ce sujet est résolu et recréer une discussion pour tes autres questions. Si c'est juste une question de RegExp, poste la plutôt dans le sous-forum 'langage'.
17/04/2009, 15h21
byrdo

Merci, je posterai dans la partie plus appropriée. ;)