Total simples Perl-Problem bei Eingabe

Hallo, seit 2 Stunden befasse ich mich mit Perl :)
Ich arbeite mit "Open Perl IDE 1.0".
Das Problem:
Bei diesem Skript (bezieht sich auf die Pi-Programmieraufgabe bei den Programmieraufgaben :)):

Code:
print "Pi berechnen...\n\n";
print "Wieviele Stellen?";
$stellen = <STDIN>;
chop ($stellen);
//nächste zeile nur zur veranschaulichung
print "\n\nStellen: $stellen";

Als Output habe ich:

-Zuerst nichts. Dann gebe ich eine Zahl ein und dann kommt:
-
Code:
67Pi berechnen...

Wieviele Stellen?

Stellen: 67

Ich möchte aber folgendes:
Code:
Pi berechnen...


Wieviele Stellen? (eingabe)


Stellen: (eingabe)

Also in C++:
Code:
#include <iostream>
using std::cin;
using std::cout;
int main()
{
int stellen=0;
cout << "Pi berechnen...\n\nWieviele Strellen?";cin>>stellen;
cout << "Stellen: ";<<stellen;
}


Liebe Grüsse, hehe
 
Hi,

Kommentare in Perl beginnen nicht mit "//" sondern mit einer Raute "#".
Mit der falschen Kommentarzeile wird auf meinem Linux Server das Script erst gar nicht ausgeführt. Mit richtiger Kommentarzeile wird das Script so wie du willst ausgeführt.
 
Im richtigen code habe ich diesen (oder einen anderen) Kommentar gar nicht! Danke trotzdem =)
Was bewirkt // denn?

Das Problem besteht weiterhin...
Aber ich hab was rausgefunden, und zwar;
als ich gestern noch was in PHP machen wollte und dafür XAMPP startete, tat das der Perl IDE irgendwie gut :s Jedenfalls funktionierte das Skript nachher einmal richtig, dann gings aber wieder nicht... (beschreibung wie oben)
 
Ich habe jetzt mal auf meinem Rechner das Script mit "Open Perl IDE 1.0" ausprobiert und habe das gleiche Ergebnis bekommen wie du.
Habe dann auf SourceForge.net im Forum geschaut und das Problem gefunden.

Wenn du am Anfang des Scriptes folgende Zeile hinzufügst, wird das Script richtig ausgeführt:
Code:
$|=1;
Hat irgendwas mit "force autoflushing" zu tun.
Hier der Foren-Thread indem ich die Lösung des Problems gefunden habe:
http://sourceforge.net/forum/forum.php?thread_id=672490&forum_id=73752
 
Beachte das EDIT!

Hm geht bei mir jetzt auch, danke für die gute Antwort!!

Hab' jetzt aber schon das nächste Problem^^ :
Ausgabe:
Pi berechnen...

Wieviele Stellen?643


Stellen: Wieviele Stellen?643

Code:
Code:
$|=1;
print "Pi berechnen...\n\n";
print "Wieviele Stellen?";
$stellen = <STDIN>;
chop ($stellen);
print "\n\nStellen: $stellen";

Weisst du, woran das liegen könnte?

Edit:
Hab das jetzt über die Konsole ausgeführt (perl name) und das hats richtig funktioniert. Open Pearl IDE 1.0 scheint n bisschen buggy zu sein ?!
 
Zurück
Oben