While en Perl

Jack -  
Char Snipeur Messages postés 10112 Statut Contributeur -
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 =)
A voir également:

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
Char Snipeur Messages postés 10112 Statut Contributeur 1 299
 
Salut.
Il me semble qu'en perl les structures conditionnels doivent toujours (contrairement au C) utilisé les accolades {}
0
Kharec Messages postés 4146 Date d'inscription   Statut Contributeur Dernière intervention   510
 
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 :-))))
0
Char Snipeur Messages postés 10112 Statut Contributeur 1 299 > Kharec Messages postés 4146 Date d'inscription   Statut Contributeur Dernière intervention  
 
man printf, et cours élémentaires de C.
0