Script IF en Perl Résolu/Fermé

Question

Bonjour les amis! =)

Voilà, je travaille ma syntaxe if en PERL, et j'ai un petit problème que je ne parviens pas à résoudre... Je vous narre cela. Dans le script suivant, même si ma condition est respectée, le script passe toujours à else... 

Voici le script (pas intelligent, mais c'est pour utiliser if, donc j'ai mis ce qui me passait par la tête, pour le texte ^^):

#! /usr/bin/perl


use strict;use warnings; 

my $rep="Bien!" ;

print "Comment allez-vous?
" ;

chomp(my $sant=<STDIN>) ;

if ( my $sant=my $rep ) {

	print "Super!
" ;
}

else {

	print "Ah...
" ;
}


Voilà... Il n'est peut être pas super bien écrit, je vous l'accorde ^^. Donc je voudrai votre aide pour debugger ce script et comprendre pourquoi il ne fonctionne pas. 

Merci à vous et bon dimanche =)

dubcek · Answer

hello
et avec
if ( my $sant == my $rep )

Kharec · Answer

Je vois que dubcek a répondu, mais à cause des bugs actuels du site, je ne peux pas voir sa réponse... Je m'excuse auprès de lui.. Si il pouvait me l'écrire en pv, ce serait sympa =)

Kharec · Answer

[kharec@mandriva bac à sable]$ ./if Comment allez-vous? mal Use of uninitialized value $rep in numeric eq (==) at ./if line 12, line 1. Use of uninitialized value $sant in numeric eq (==) at ./if line 12, line 1. Super! Voilà, dubcek!

Kharec · Answer

Donc je l'ai laissé comme dans mon premier post pour le moment et je réfléchis pleinement (mais un petit coup de main serait pas de refus ^^). Merci à toi et aux autres qui viendraient :-)

fiddy · Answer

Salut,
Tes variables $sant et $rep sont déjà définies, donc n'utilise pas my dans le if. De plus, utilise l'opérateur eq pour la comparaison dans le if.
Ce qui donne : if ($sant  eq  $rep )
Cdlt

lami20j · Answer

Salut,

D'autres variantesunless ( $sant cmp $rep ) {
        print "Super!
" ;
}else {
        print "Ah...
" ;
}
#

if ( !($sant cmp $rep )) {
        print "Super!
" ;
}else {
        print "Ah...
" ;
}
#

if ( $sant=~/^$rep$/ ) {
        print "Super!
" ;
}else {
        print "Ah...
" ;
}
#

if ( $sant cmp $rep ){
        print "Ah...
";
}else{
        print "Super!
";
}

lami20j · Answer

Salut,

Ou avec une somme de contrôleif ( unpack("%32C*",$sant) == unpack("%32C*",$rep)){
        print "Super!
";
}else{
        print "Ah...
";
}

C'était pour s'amuser, puisqu'il faut prendre en compte le risque de collisions ;-)

Kharec · Answer

Merci beaucoup à vous tous, c'est vraiment sympa de votre part. Je vous suis vraiment reconnaissant! =)

Script IF en Perl

8 réponses

Discussions similaires