Discussion :

[seigneur.viggen]

Bonjour

je viens de me lancer dans le Perl. Le "Hello World" fonctionne, ouf!
Mais j'ai un problème avec le programe (simple) suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
print "What's your name? ";
$name = <STDIN>;
chomp($name);

A l'exécution, rien ne se produit sauf si je tape qqc au clavier, auquel cas il m'affiche le message "What's your name?"...
Pourtant, je voudrais qu'il affiche ce message avant la saisie au clavier. Qu'est ce qui ne va pas dans le code?

Config : Eclipse 3.1, plug-in EPIC, ActivePerl 5.8.7

[Arioch]

Bonjour

je viens de me lancer dans le Perl. Le "Hello World" fonctionne, ouf!
Mais j'ai un problème avec le programe (simple) suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
print "What's your name? ";
$name = <STDIN>;
chomp($name);

A l'exécution, rien ne se produit sauf si je tape qqc au clavier, auquel cas il m'affiche le message "What's your name?"...
Pourtant, je voudrais qu'il affiche ce message avant la saisie au clavier. Qu'est ce qui ne va pas dans le code?

Config : Eclipse 3.1, plug-in EPIC, ActivePerl 5.8.7

Bonjour,

a priori :
- un script avec juste print "hello, world"; fonctionne et t'affiche bien hello, world
- un autre script commençant par un print n'affiche rien

Bizarre, ta config

[Arioch]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
#/usr/bin/perl
use strict;
my $val = "";
while(! $val) {
    print "Quel est ton age ?";
    chomp($val = <STDIN>);
}
print "tu as $val ans\n";

Ce code fonctionne sur ma config (win2000 + un vieux Perl) et m'affiche bien la question avant de faire quoi que ce soit d'autre.

Est-ce qu'il fait également la même chose chez toi ?

[seigneur.viggen]

En fait, c'sst comme si les instructions de lecture et d'écriture étaient inversées.
J'ai écrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
print("What is your name? ");
$name = <STDIN>;

Mais à l'exécution, j'obtiens l'inverse : d'abord la lecture du clavier, puis l'affichage du message

[seigneur.viggen]

Non, cela me fait le problème : il attend une entrée au clavier avant d'afficher les messages

Mon affichage :
5
Quel est ton age ?tu as 5 ans


[/code]

[GLDavid]

Bizarre ton problème !
Comment exécutes-tu ton code ? Via Eclipse ? Ou tu le lances par une fenêtre DOS ?

@++

[2Eurocents]

Tout ceci ressemble fort à un problème de buffersation des entrées sorties ... du à quoi, ça, c'est un autre problème ...

Tu peux tenter, en début de script, de positionner la variable spéciale $| :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$| = 1;

Je ne me souviens plus si c'est suffisant où s'il faut aussi passer par un select sur STDOUT ...

Une autre solution passe par, en début de script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
use IO::Handle;
STDOUT->autoflush(1);

Bon courage pour la suite ...

[seigneur.viggen]

Je l'exécute directement dans Eclipse, en tant que projet Perl... J'utilise Windows si ca peut vous aider à trouver...

[seigneur.viggen]

Merci 2EuroCents! J'ai rajouté les deux lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
use IO::Handle; 
STDOUT->autoflush(1);

et cela fonctionne!

Merci beaucoup!

[jejeman]

Et avec un \n comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
print "What's your name? \n";

Ca ne marche pas mieux ?

Jérôme

[2Eurocents]

Et avec un \n comme cei :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
print "What's your name? \n";

Ca ne marche pas mieux ?

C'est une possibilité, mais comment fait-on, alors, si l'on veut que la réponse de l'utilisateur soit sur la même ligne que la question ???

[2Eurocents]

et cela fonctionne!

Alors n'oublie pas le tag [Résolu]

Tu peux l'appliquer à ton sujet en utilisant le bouton, en bas à gauche de l'interface quand tu visualises le fil ... Cela permet, ensuite, des requêtes spécifiques à la modération ...

Merci d'avance.

P.S. Ce message de rappel, ainsi que toute réponse directe qui pourrait lui être apportée, sera supprimé aussitôt le tag [Résolu] apposé au sujet.