Entrée utilisateur en Perl - Problème avec le script en cours d'exécution dans KomodoEdit

Question

j'ai écrit ce code minuscule gedit et a couru: -

#/usr/bin/perl 
print "Enter the radius of circle: \n"; 
$radius = <>; 
chomp $radius; 
print "radius is: $radius\n"; 
$circumference = (2*3.141592654) * $radius; 
print "Circumference of circle with radius : $radius = $circumference\n"; 

fonctionne bien en utilisant la commande line.Ran le même code sur Komodo Edit: face à un problème Je m'attends à la première ligne comme sortie: - Entrez le rayon du cercle: pendant qu'il attend sur l'écran c'est-à-dire attendre une entrée et ensuite tout se passe dans l'ordre - quelqu'un peut me dire pourquoi ça marche bien avec la ligne de commande?

---

sortie après avoir changé #/usr/bin/perl #/usr/bin/perl: - a aussi déclarer mon rayon de $ et mon tour de $ ----------- -----------------------------------------------

12 # same i had to enter 12 
Enter the radius of circle: 
radius is: 12 
Circumference of circle with radius : 12 = 75.398223696 

Answer 1

Alors que « l'utilisation stricte » et une ligne tralala correctement orthographié sont toujours bonnes choses, ni est la cause réelle. Lorsque vous exécutez un programme interactif dans un environnement sans ligne de commande , vous devez généralement désactiver la mise en mémoire tampon d'E/S. En Perl, vous devez mettre cette ligne en haut de votre code:

$| = 1; 

Answer 2

J'ai testé votre script en utilisant Komodo edit et ça marche bien d'autres, mais en dessous de quelques corrections.

#!/usr/bin/perl -w 
use strict; 

print "Enter the radius of circle: \n"; 
my $radius = <>; 
chomp $radius; 
print "radius is: $radius\n"; 
my $circumference = (2*3.141592654) * $radius; 
print "Circumference of circle with radius : $radius = $circumference\n"; 

Sortie en Komodo

Enter the radius of circle: 
5 
radius is: 5 
Circumference of circle with radius : 5 = 31.41592654