Problème print et <STDIN>

Bonjour,

J'ai un petit problème très simple mais que je n'arrive pas a résoudre.
Voici mon problème :

Lors du lancement du programme ci dessous dans le shell :

Code:

---

1 2 3

print "tapez un chiffre :"; $chiffre = <STDIN>; print $chiffre;

---

Voici ce que j'obtiens :

Citation:

---

$ perl Print.pm
1
tapez un chiffre :1

---

Problème :
Il ne m'affiche pas en premier la chaine de caractères "tapez un chiffre" mais il me demande en premier lieu de rentrer la valeur de mon chiffre.
Et ensuite il m'affiche tous mes print.

Est ce quelqu'un connaitrai le bug?

Cordialement.

Code:

---

1 2 3 4 5 6 7 8

#!/usr/bin/perl use warnings; use strict;   print "tapez un chiffre : "; my $chiffre = <STDIN>; chomp $chiffre; print "$chiffre\n";

---

Si ça ne fonctionne toujours pas comme tu le souhaites, mets ceci

Code:

---

1 2 3 4

#!/usr/bin/perl use warnings; use strict; $| = 1;

---

Merci bien la deuxième solution marche ! =)