Perl

[Perl] substitutions, expressions régulières et dictionnaire ...

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl] substitutions, expressions régulières et dictionnaire ...

trueslash

(╯°□°）╯︵ MMM

:hello:

Je débute en PERL et je dois travailler sur un petit projet (type ELIZA pour ceux qui connaissent) et j'ai un p'tit problème avex le commande de substitution

voilà ce que je cherches à faire :

$maChaine = s/I am/are you/;

(l'idée est de retourner les questions de l'utilisateur)

pour me simplifier la tâches, j'ai créé un dico comme ça :

inver{'I am'} = 'are you';
inver{'you are'} = 'am I';
...
...
...

j'utilise ça de cette façon :

$maChaine = s/(I am|you are)/$inver{$1}/;

ça fonctionne mais je dois écrire (I am|you are) et la liste s'allonge dramatiquement, je voudrais donc trouver le moyen de donner toutes les clés d'un dictionnaire dans le premier paramètre du s

à votre bon coeur

Publicité

anapajari

s/travail/glanding on hfr/gs;

perso je ferais un truc dans ce gout la:

Code :

foreach $cle (keys %inver)
{
$maChaine =~ s/$cle/$inver{$cle}/gi;
}

mais tu fais une boucle et si tu as beaucoup de clé ça peut ramer.
Sinon tu peux essayer quelque chose comme ça:

Code :

my $cle = "(". join('|', keys %inver) . " )";
$maChaine =~ s/$cle/$inver{$1}/gi;

Si ya des trucs que tu comprends pas hesites pas !!!

trueslash

(╯°□°）╯︵ MMM

vais essayer ça

la seconde méthode devrait fonctionner à priori

(la première marchera pas trop vu que ça va par exemple me transformer un my en your puis ce même your en my [:joce] )

pospos

des petits trucs qui pourraient t'aider:

un clone d'eliza:
http://search.cpan.org/~jnolan/Chatbot-Eliza-1.04/

un truc pour faires des regexps rapides à partir de listes:
http://search.cpan.org/author/DANK [...] xp/List.pm

un truc pour eviter les problemes des substiutions chainées (tres important pour ton probleme):
http://search.cpan.org/author/LPAL [...] arallel.pm

et sinon, au lieu de faire

Code :

inver{'I am'} = 'are you';
inver{'you are'} = 'am I';
...
...
...

tu peu simplement taper:

Code :

%invert = (
'I am' => 'are you',
'you are' => 'am I',
);

trueslash

(╯°□°）╯︵ MMM

merci beaucoup pour ton aide

j'ai pas tout utilisé mais vu que le truc était à faire en une semaine, je pense que j'ai qq chose d'acceptable

FORUM HardWare.fr

Programmation

Perl

[Perl] substitutions, expressions régulières et dictionnaire ...

Sujets relatifs
[Perl] use strict !!!	[ Perl] Truc bizarre avec @ARGV
Expressions régulières	[PHP - REGEX] J'ai du mal avec les expressions regulières...
[Perl] Appeler un script (avec des param) à partir d'un autre script ?	[Perl] décomposer un nombre, comment ?
[Perl]Valider le format d'une chaine de caractères
Plus de sujets relatifs à : [Perl] substitutions, expressions régulières et dictionnaire ...

Page générée en 0.029 secondes