Discussion :

[byrdo]

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.

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 :

$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 :

# select code from client where code = toto

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

Merci pour votre aide.

[Jasmine80]

Code :

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

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
}

[byrdo]

Code :

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

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 :

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.

[Jasmine80]

Recherche de

Code :

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

(.*?)$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?

[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.

[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.