Expression régulière qui est dansune chaine de caractère

Bonjour,

J'ai un truc du genre :

Code:

---

1 2	$expr = "s/\s/_/g"; $chaine =~ $expr;

---

car $expr est en fait passé au script en paramètre, or ça ne fonctionne pas...

si quelqu'un a une idée merci d'avance :)

Citation:

---

Envoyé par arkem

Bonjour,

J'ai un truc du genre :

$expr = "s/\s/_/g";
$chaine =~ $expr;

car $expr est en fait passé au script en paramètre, or ça ne fonctionne pas...

si quelqu'un a une idée merci d'avance :)

---

d'abord, salut,
puis le code sous balise code, c'est mieux pour la lisibilité.
de plus, on sait pas ce que tu veux faire, soit explicite et

Code:

---

$chaine =~ $expr;

---

ça ne veut rien dire.

Regarde ca :

Code:

---

1 2 3 4 5 6 7 8 9 10

#!/usr/bin/perl -w $ligne = "acacacaaaccabaaa"; $e = "/ab+/"; $total = "if ($ligne"." =~ "."$e) { print 'Le motif est trouve.'; } else { print \"Le motif n'est pas trouve.\"; }"; eval($total);

---

Je crois que tu dois utiliser la fonction eval(). Regarde la doc.
J'espere que cela va t'aider.

A+

Oui excusez moi pour le manque d'informations.

But : écrire un script pour renommer des fichiers vie des expressions régulières, avec l'expression régulière passée comme paramètre au script.

Donc à un moment j'applique mon expression régulière :

Code:

---

1 2	$parametre = "s/\s/_/g"; $chaine =~ $parametre;

---

(pour faire en fait : $chaine =~ s/\s/_/g"; )

Or mon expression n'est pas appliquée.

J'ai aussi essayé :

Code:

---

eval { $chaine =~ $parametre; }

---

mais rien n'y change... :?
une idée ?

il ne me semble pas judicieux de mettre ton expression régulière dans une variable pour ensuite faire

Code:

---

$chaine =~ $parametre

---

.
je me trompe peut-être, mais je ne pense pas que Perl puisse comprendre ton expression
je ferai plutôt quelque chose du style

Code:

---

1 2 3 4

$titi = "\s"; $tata = "_"; $chaine =~ s/$titi/$tata/g;

---

je n'ai pas testé, mais ça me semble plus judicieux ..

je suis du même avis que stoyak. Et je rajoute qu'il est obligatoire de mettre ton code entre balise code pour une meilleur lisibilité. La prochaine fois, ton thread sera verouillé.
Reedite ton message et met ton code entre balise.
Consulte les régles du forum (dans ma signature),
Merci!!

merci pour vos réponses.

oui effectivement c'est mieux de mettre l'expression régulière dans une variable

par contre le code ci-dessous ne fonctionne pas :

Code:

---

1 2 3

$titi = "\s"; $tata = "_"; $chaine =~ "s/$titi/$tata/g";

---

je suppose qu'il y a des problèmes avec les / et les \

Citation:

---

Envoyé par arkem

par contre le code ci-dessous ne fonctionne pas :

Code:

---

1 2 3

$titi = "\s"; $tata = "_"; $chaine =~ "s/$titi/$tata/g";

---

je suppose qu'il y a des problèmes avec les / et les \

---

Et les " ;)

Le mieux, c'est de faire :

Code:

---

1 2 3

$titi = '\s'; $tata = '_'; $chaine =~ s/$titi/$tata/g;

---

Les ' ne permettent pas à Perl d'interpréter le \s à l'intérieur de $titi. Cette chaine n'étant pas interprétée, elle peut servir telle quelle pour l'expression rationnelle.

Sinon, il ne faut pas mettre de " autour de l'expression rationnelle utilisée avec l'opérateur =~.

Bon Perl

merci pour ta réponse :)

mais si je passe $titi et $tata en paramètre au script il seront considérés comme des chaines et donc le pb se repose non ?

fais un script test et essaye :wink:

Citation:

---

Envoyé par arkem

mais si je passe $titi et $tata en paramètre au script il seront considérés comme des chaines et donc le pb se repose non ?

---

Oui et non ...

Oui il seront considérés comme des chaines.
Non le problème ne devrait pas se poser.

Lorsqu'une chaine est lue (paramètres, E/S fichiers, etc), les caractères "escapés" par un \ ne sont pas interprétés. Les chaines lues contiennent bien le \ et le caractère qui suit.

Il en est de même lorsque la chaine est constante, dans le script, et placée entre ' (simples quotes).

Par contre, lorsque la chaine est constante, dans le script, et placée entre " (doubles quotes), alors l'interpréteur Perl fait un peu de boulot et remplace la paire (\, caractère qui suit) par un caractère unique, le plus souvent un caractère de contrôle, comme le \n qui introduit un saut de ligne.

Bon Perl.

merci pour toutes ces infos, je teste entre midi et 2 :P