Discussion :

[Girzi]

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 :

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

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

[Arioch]

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 :

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

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 ?

[2Eurocents]

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

Comme ceci :

Code :

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

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

[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) :

Code :

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

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

--
Jedaï

[2Eurocents]

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

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 :

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

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);

[Girzi]

Merci pour votre aide,
seulement je veux utiliser

Code :

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

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

[2Eurocents]

seulement je veux utiliser

Code :

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

tr/$_/*/

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électionner tout - Visualiser dans une fenêtre à part

s/$_/*/g

[Girzi]

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.

[2Eurocents]

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.

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électionner tout - Visualiser dans une fenêtre à part

s/($_)/$1/g

[Girzi]

Merci pour ton aide je comprends mieux maintenant

[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électionner tout - Visualiser dans une fenêtre à part

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électionner tout - Visualiser dans une fenêtre à part

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