Hallo zusammen,

ich möchte über netcat mit folgendem Perl script kommunizieren:







Wie man sieht kann ich zwar Daten eingeben, die Ausgabe wird jedoch abgefangen und erst am Scriptende ausgegeben.

Das Problem ist, dass das Script nicht interaktiv läuft:

if( -t STDIN && -t STDOUT )

liefert false.

Ersetze ich das Perl Script durch ein bash script, klappts.

Wie kann ich Perl interactiv schalten?
Ich finde keine geeigneten Kommandozeilenargumente oder Code-Beispiele....

Vielen Dank für eure Tipps.

$| = 1;

ist was ich brauchte.

(http://perldoc.perl.org/perlvar.html)

hever+2008-11-10 12:54:29--

Code (perl): (dl )

1
2
3
4
5
6
7

#!/usr/bin/perl

$| = 1;

print "Hello\n";
my $input = <>;
print "You said: $input\n";

Korrekt.
Perl puffert erst einmal die Ausgabe und sendet sie später.