Programme en perl
Posté : ven. 12 sept. 2014 20:45
Bonjour ou Bonsoir,
je suis étudiante en L1 informatique, j'ai un problème je dois créer un petit jeu en perl. Le jeu que j'ai créer est une boucle magique qui est censé répondre à une question posé par l'utilisateur. Mon soucis est que une fois que je teste le programme cela m'affiche "bonjour je suis magicloop quel est votre question?" jusque la pas de souci une fois qu'on rentre notre question et qu'on appuis sur entrer le programme nous re affiche: "bonjour......." et ne donne pas la réponse de la question poser par l'utilisateur.
C'est un projet à rendre pour lundi j'ai vraiment besoin que l'on m'aide, je vous remercie d'avance. Voila mon programme:
#!/usr/bin/perl -w
@rep = ("oui", "non", "peut être", "impossible", "sans aucun doute");
while ( )
{
print ''bonjour je suis magicloop quel est votre question?";
$question = STDIN;
chomp $question;
$var = [rand@rep];
}
print "$rep[$var]";
je suis étudiante en L1 informatique, j'ai un problème je dois créer un petit jeu en perl. Le jeu que j'ai créer est une boucle magique qui est censé répondre à une question posé par l'utilisateur. Mon soucis est que une fois que je teste le programme cela m'affiche "bonjour je suis magicloop quel est votre question?" jusque la pas de souci une fois qu'on rentre notre question et qu'on appuis sur entrer le programme nous re affiche: "bonjour......." et ne donne pas la réponse de la question poser par l'utilisateur.
C'est un projet à rendre pour lundi j'ai vraiment besoin que l'on m'aide, je vous remercie d'avance. Voila mon programme:
#!/usr/bin/perl -w
@rep = ("oui", "non", "peut être", "impossible", "sans aucun doute");
while ( )
{
print ''bonjour je suis magicloop quel est votre question?";
$question = STDIN;
chomp $question;
$var = [rand@rep];
}
print "$rep[$var]";