STDOUT an den Clienten schreiben - #107112 (Netzwerkprogrammierung und Netzwerke mit Perl)

DrWhiteLetter

2008-03-16 23:32

User since
2005-01-30
26 Artikel
BenutzerIn
[default_avatar]

Hi,

ich habe einen kleinen Server über IO::Sockets erstellt, welcher über tcp Befehle empfangen soll. Diese werden dann an /bin/bash geleitet und die Ausgabe soll eigentlich an den Clienten geschickt werden.

Hier erstmal mein Codeschnipsel vom relevanten Teil:

Code: (dl )

my $new_sock = $sock -> accept();

while(<$new_sock>) {
        $x = $_;
        open(IN," |/bin/bash") or die ();
        print IN $x;
        close IN;
}

Dabei erfolgt die Ausgabe allerdings auf der Serverkonsole, ich hab an der Stelle versucht, STDOUT einfach umzuleiten, leider gelingt mir das nicht so ganz, da mir wohl die richtige Syntax fehlt.
Versucht habe ich es z.B. mit

Code: (dl )

open($new_sock, STDOUT)

und ähnlichen Konstrukten. Wäre schick, wenn mir einer helfen könnte. :)

Danke schonmal.