While en Perl
Jack
-
Char Snipeur Messages postés 10112 Date d'inscription Statut Contributeur Dernière intervention -
Char Snipeur Messages postés 10112 Date d'inscription Statut Contributeur Dernière intervention -
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 =)
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
-
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" :)
-
Salut.
Il me semble qu'en perl les structures conditionnels doivent toujours (contrairement au C) utilisé les accolades {}-
Autre question, svp,
Voici un code PERL
#! /usr/bin/perl print "Hello World" ; chomp(my $var=<STDIN>) ; print "Voici votre frappe: $var" ;
Comment faire le même en C? Je sais que ça commencerai par un code du genre:main() { printf("Hello World") ; }
Mais comment effectuer une lecture de la frappe du clavier afin de renvoyer la valeur ($var) tapée par l'utilisateur?
Merci beaucoup :-))))
-
