While en Perl

Jack -  
-
Bonjour à tous les sympathiques bénévoles de CCM :)

Voilà, je commence en perl et je rencontre une certaine difficulté au niveau du While (mais d'après le diagnostique l'erreur est plutôt au niveau du if).... Voyez plutôt:

#! /usr/bin/perl


while (chomp(my $frappe=<STDIN>))

if ($frappe eq "hello") {

print "Hello $USER\n" ;
}
else {
exit ;
}


Qu'en pensez vous? Merci d'avance de l'aide apportée =)

2 réponses

Kharec Messages postés 4146 Date d'inscription   Statut Contributeur Dernière intervention   510
 
Il manque juste les accolades après le () du while et à la fin du prog pour signifier ce que la boucle doit répéter tant que $frappe est "hello" :)
0

 
Salut.
Il me semble qu'en perl les structures conditionnels doivent toujours (contrairement au C) utilisé les accolades {}
0