Discussion :

[roy_raider]

Bonjours a tous,

je viens de débuter le perl et j'essaye en une ligne de supprimer tout les doublons d'un mot, par exemple:

comment -> coment
hellooww -> helow
...

j'ai essayer plein d’expression dans ce genre la: s/[a-z](.*)/[a-z]./g

mais rien ne marche, donc c’était pour avoir votre aide. ^_^

[Philou67430]

Code bash :

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

1
2
3
4
5
$ perl -pe 's/(.)\1/$1/g;'
comment
coment
helloww
helow

[roy_raider]

ah bun je suis content de m'etre inscrit... xD

merci beaucoup, sans vouloir abuser tu n'aurais pas un bon lien avec la liste de tout les caractère a connaitre pour regexp et leurs effets ?

[Dimitry.e]

Le manuel de Perl si tu n'as pas peur de l'anglais.

[Philou67430]

Il existe aussi en français, grâce aux généreux bénévoles :
- http://perl.enstimac.fr/DocFr/perlre.html
- http://perl.enstimac.fr/DocFr/perlrequick.html
- http://perl.enstimac.fr/DocFr/perlretut.html

[roy_raider]

Merci beaucoup je vais aller me documenter !


Au passage je viens de faire des check et en fait je me suis mal exprimer.

je voudrais que dans tout les cas le prog ressorte qu'une fois la lettre même si elle est en triple:

Helllloww = helow



De la même façon je cherche a présent a faire l'inverse aléatoirement:

helow -> hheeeeeloooowwwww (par exemple)

je suis deja sur des piste mais si vous avez la solution merci d'avance !

[Philou67430]

Dans ce cas, je n'utiliserais pas une regexp, mais plus naturellement, un hashage des lettres :

Code bash :

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

1
2
3
$ perl -ne 'chomp;my %uniq_letters = map { $_ => 1 } split //; print join "", keys %uniq_letters, "\n"'
hheeeeeloooowwwww
wleho

Dans cet exemple, les lettres apparaissent dans un ordre quelconque, et non dans l'ordre d'apparition dans le mot d'origine.

Il est possible, sans doute, d'utiliser une regexp étendue, mais elle utilisera sans doute un procédé de test de l'unicité similaire.

[roy_raider]

merci,

par contre je me prend pas mal la tete pour l'inverse l’idée c'est que pour chaque caractère:
-tu prend le caractère
-tu le remplace par ce même caractère un nombre aléatoire de fois.

j'ai vue que je pouvais faire un int(rand(3)) (pour un random de 3) dans l'expression, après la question est comment demande a ce que pour chaque caractère il le prenne et le remette le nombre de fois random trouvé ?

[Philou67430]

Il existe un opérateur qui permet de "multiplier" un texte autant de fois que l'on souhaite, et celui-ci, associé à la fonction de traitement par liste map permet d'obtenir facilement ce que tu souhaites.
Reste à savoir si tu veux que les lettres, une fois "multipliées", soient mélangées.

En attendant de savoir, je te livre les deux solutions de ma besace :

Code :

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

1
2
$texte_court = "helow";
$texte_long = join "", (map { $_ x int(rand(3)) }, split //, $texte_court);

(dans ce cas de figure, il se peut que certaines lettres est 0 occurences ; pour s'assurer qu'il y ait toujours au moins une lettre de chaque, il faut utiliser par exemple int(1+rand(3)) pour un nombre d’occurrence de 1 à 3)

Autre solution, utiliser Data::Rand :

Code :

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

1
2
3
use Data::Rand;
$texte_court = "helow";
$texte_long = rand_data(10, [ split //, $texte_court ]);

(avec cette méthode, on doit imposer une taille, mais il est possible de rendre cette taille également aléatoire avec

Code :

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

int($min + rand($max+1-$min))

).

[Dimitry.e]

Pour information, il est possible de faire la même chose avec des expressions régulières :

Code :

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

1
2
3
4
5
6
 
my $s = "hhheeellowww";
$s =~s/(.)\1+/$1/g;
print $s."\n";
$s =~s/(.)/$1 x (1+rand(3))/eg;
print $s."\n";