Regex + Array + Boucles

Bonjour, je voulais savoir s'il est possible d'entrer une variable à l'intérieur d'une regex. J'ai mis uen série de motif dans un tableau et je veux les parcourir. Je vous explique avec du code :

Code:

---

1 2 3 4 5 6 7

@tableau = ("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"); $chaine = "abcde"; foreach (@tableau){   $oc = ($chaine =~ tr/\$_/*/); push @tableau2, $oc; }

---

Cette ligne ci ne marche pas : $oc = ($chaine =~ tr/\$_/*/);
La variable $_ magique contient au premier la lettre a, ensuite b...
Mais le problème c'est que je n'ai pas le droit :S

Comment faire pour injecter une variable d'un tableau qui change au tour pour tour dans une regex ?

Merci de votre aide :aie:

Bonjour,

je vois un problème dans ta syntaxe $oc = ($chaine =~ tr/\$_/*/);

En mettant \ devant $_, tu demandes à perl d'interprêter le caractère $ exactement pour ce qu'il vaut : un $ et ça n'a plus rien à voir avec la variable $_ qui n'est pas extrapolée dans ce traitement.

Un exemple vaudra mieux qu'un long discours :

Code:

---

1 2 3 4

$_ = 5; print "$_"; # affiche 5 print "\$_"; # affiche $_ tout bêtement

---

ensuite, je comprend pas trop : tu veux remplacer la lettre de ton tableau par quoi au juste ? Pourquoi une * en tant que valeur de remplacement ?

Citation:

---

Envoyé par Girzi

Comment faire pour injecter une variable d'un tableau qui change au tour pour tour dans une regex ?

---

Comme ceci :

Code:

---

1 2 3 4 5 6 7

@tableau = ("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"); $chaine = "abcde"; foreach (@tableau){   $oc = ($chaine =~ s/$_/*/); push @tableau2, $oc; }

---

En l'occurence, il ne me semble pas que l'opérateur de translittération accepte de travailler sur une variable, alors que l'opérateur de substitution, si.
On remplace donc tr par s et le tour est joué (et pas besoin d'antislasher le $ car le moteur devine "tout seul" que c'est une variable et pas une fin de ligne). ;)

Par ailleurs, pour améliorer légèrement la lisibilité de ton code, et t'économiser des frappes inutiles (pour une prochaine fois en tout cas) :

Code:

---

1 2	my @tableau = ('a'..'z');

---

--
Jedaï

Citation:

---

Envoyé par Jedai

Par ailleurs, pour améliorer légèrement la lisibilité de ton code, et t'économiser des frappes inutiles (pour une prochaine fois en tout cas)

---

+1 :king:

Et pour les cas où de nombreuses lettres sont quand même nécessaire et s'il n'est pas possible d'utiliser la création de listes en .. (intervalles), il reste l'opérateur qw :

Code:

---

my @tableau = qw(a z e r t y u i o p s d f g h j k l m w x c v b n);

---

;)

Merci pour votre aide,
seulement je veux utiliser

Code:

---

tr/$_/*/

---

Pour que le code me compte le nombre de fois que teli lettre apparait dans ma chaine de caractères (c'est pour ca que jutilise un tableau + une boucle)
Mais avec tr/$_/*/ il ne semble pas vouloir :?
Une idée ? Merci de votre aide :aie:

Citation:

---

Envoyé par Girzi

seulement je veux utiliser

Code:

---

tr/$_/*/

---

---

:nono:

Comme je l'ai déjà dit, avec tr ce n'est pas possible.

Il faut utiliser s///. Il est cependant possible d'en faire plusieurs à la fois avec le modificateur g :

Code:

---

s/$_/*/g

---

Merci pour ta réponse,
mais le problème c'est que je ne veux pas remplacer une châine par une autre, mais compter le nombre doccurence dans un mot. Par exemple :
hello, 1 h, 1 e, 2 l, 1 o ...

Merci pour ton aide. :aie:

Citation:

---

Envoyé par Girzi

mais le problème c'est que je ne veux pas remplacer une châine par une autre

---

C'est pourtant bien ce que fait l'opérateur tr/// ... tr/// ou s///g, dans notre cas, c'est rigoureusement équivalent.

Citation:

---

Envoyé par Girzi

mais compter le nombre doccurence dans un mot. Par exemple :
hello, 1 h, 1 e, 2 l, 1 o ...

---

Dans ce cas, il reste la possibilité de mémoriser la variable utilisée dans la substitution et de la réutiliser :

Code:

---

s/($_)/$1/g

---

Merci pour ton aide je comprends mieux maintenant ;)

Citation:

---

Envoyé par 2Eurocents

Dans ce cas, il reste la possibilité de mémoriser la variable utilisée dans la substitution et de la réutiliser :

Code:

---

s/($_)/$1/g

---

---

Et comme en Perl, il y a toujours plus d'une façon de le faire, voici une autre solution. Un poil plus compliquée à comprendre mais beaucoup plus satisfaisante du point de vue conception (peut être plus performante, aussi) :

Code:

---

s/(?=$_)//g

---

En faisant ainsi, la variable est matchée, mais pas mémorisée, ce qui fait qu'il n'y a pas besoin de la remplacer puisqu'elle n'est pas supprimée (n'ayant pas été mémorisée).

8-)