Thread Perl interactive ausführen (2 answers)
Opened by hever at 2008-11-10 13:54

hever
 2008-11-10 13:54
#116160 #116160
User since
2003-09-13
2 Artikel
BenutzerIn
[Homepage] [default_avatar]
Hallo zusammen,

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

Code (perl): (dl )
1
2
3
4
5

#!/usr/bin/perl

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


Code: (dl )
Server$ nc -l -p 65000 -c "perl hello.pl"


Code: (dl )
1
2
3
4
Client$ nc localhost 65000
test
Hello
You said: test


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.

View full thread Perl interactive ausführen