Discussion :

[rcageot]

Salut,

j'ai voulu m'amuser avec les regexp et je me suis dit (quand je suis fatigué il m'arrive de me parler)
quelle regexp pourrait me supprimer toutes les lettres en doublons dans une chaine de caractères?
ne cherchez pas, ça ne me sert à rien c'est juste pour le sport ! (je vous ai dit plus haut que j'étais fatigué)

voilà le code que j'ai pondu

Code :

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

1
2
3
4
5
6
7
8
my $mot = "plEindeletTresendoublOns";
while ($mot=~ m/(\w).*\1/i) {
   $mot =~ s/(\w)(.*)\1/$1$2/i;
}
print "Mot = $mot\n";
 
Résultat:
Mot = plEindtrsoub

j'ai essayé de faire sans le while mais j'y arrive pas :
est-ce possible ?
l'utilisation de l'option "g" ne marchant pas

Code :

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

1
2
3
4
$mot =~ s/(\w)(.*)\1/$1$2/gi;
 
Résultat:
Mot =pleindelettresendoublons

c'est pas capital mais ça m'énerve

[Woufeil]

Salut !

Allez, je propose une chtite solution, mais en trichant un peu

Code :

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

1
2
3
4
5
my $mot = "aabbcc", 
my $res = "";
my %hash;
$mot =~ s/(.)/{$res.= $1 unless exists $hash{$1}; $hash{$1}++;}/ge;
print $res;

J'aime bien

Le petit problème, c'est que c'est sensible à la casse. M'enfin suffit de tout passer en minuscule ou en majuscule et c'est réglé.

Bon, OK c'est une regex particulière, mais j'ai pas de boucles

[rcageot]

houa l'autre ! j'avais fait expres de pas utiliser de hash (trop facile) !
m'enfin ta solution est rigolote quand même !
mais sensible à la casse !
la rendre insesible à la casse l'alourdie un peu

Code :

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

1
2
 
$mot =~ s/(.)/{$res.= $1 unless exists $hash{lc($1)}; $hash{lc($1)}++;}/ge;

[Woufeil]

houa l'autre ! j'avais fait expres de pas utiliser de hash (trop facile) !
m'enfin ta solution est rigolote quand même !
mais sensible à la casse !
la rendre insesible à la casse l'alourdie un peu

Code :

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

1
2
 
$mot =~ s/(.)/{$res.= $1 unless exists $hash{lc($1)}; $hash{lc($1)}++;}/ge;

Perl est un langage de flemmard, tu vas pas te priver d'utiliser un bel outil tel que les tables de hachage quand même
Et puis, niveau optimisation, la mienne est plutôt bien je pense

[GnuVince]

J'suis pas capable de mettre ma solution sur une seule ligne

Code :

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

1
2
3
4
5
 
my $mot = "plEindeletTresendoublOns";
$mot =~ s/(.)/$1-/g;
my %h = split(//, $mot);
print join("", keys %h) , "\n";

[rcageot]

c'était juste un exercice de style sur les regexp afin d'utiliser les référence arrière à la base , un truc pour me torturer la tête plutot que de faire une grille de sudoku
c'est pour cela que je voulais essayer de supprimer mon while

[djibril]

MA solution serait, je mets ma chaine dans un tableau (merci la fonction join) et je vire les doublons de mon tableau (merci les snippet de dvp.com). Puis je recree ma chaine de caractere (merci le split)

[MarneusCalgarXP]

MA solution serait, je mets ma chaine dans un tableau (merci la fonction join) et je vire les doublons de mon tableau (merci les snippet de dvp.com). Puis je recree ma chaine de caractere (merci le split)

T'aurais pas inversé l'utilisation de split et join ?

[djibril]

si un peu

[GnuVince]

À titre d'information pour rcageot, je crois pas que les regex puissent éliminer les doublons en utilisant des back references. Si c'est le cas, c'est une utilisation très avancée des regex.