Discussion :

[zoscoy]

Bonjour,

J'ai écrit un programme en Python avec des boucles et des comparaisons sur des chaînes de caractères. Il fonctionne très bien.

Mais lorsque j'ai voulu le réécrire en Perl j'ai eu des problèmes. J'ai bien conscience qu'en utilisant "eq" et "ne" je ne fais que comparer par rapport à l'ordre alphabétique.

j'ai même mis les réponses dans des variables et aussi mis une regexp, mais je suis à court d'idées.

Est-ce que vous pouvez me donner une solution ou me dire si c'est possible de faire ce genre de programme ?

Merci

pour Tom.py

pour Tom.pl

[Lolo78]

Tu n'utilises pas les bonnes méthodes.

Code :

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

my $non = /[^oui]/;

ne fait pas tu tout ce que tu sembles croire. /[^oui]/ définit une classe de caractère qui dit: n'importe quel caractère autre que le "o", le "u" ou le "i".

Il vaut mieux que tu changes la dixième ligne comme suit:

Code :

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

while ($reponse ne $oui)

[Lolo78]

J'ai oublié de te dire qu'il faut que tu utilises la commande chomp sur les réponses saisies par l'opérateur, pour enlever le caractère de fin de ligne, et ce à chaque endroit où tu attends une réponse (tu le fais une fois, pas les autres). Par exemple:

Code :

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

1
2
$reponse = <>;
chomp $reponse;

[zoscoy]

J'ai réussi à faire ce que je voulais, il fallait chomper sous chaque affectation de la variable $reponse pour exclure le retour à la ligne et ainsi rendre vraie la condition (if $reponse eq "oui")

Voici le nouveau programme.

pour Tom.pl

Merci