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.

[Jasmine80]

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

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

Code :

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

my $sep = '\$';

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

[byrdo]

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

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

Code :

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

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 ! ), donc j'aurais sûrement encore besoin de tes précieux conseils, ou ceux d'autres personnes.

Encore Merci.

[Jasmine80]

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

[byrdo]

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