Hilfe bei TCP Server/Client

[hotti]

hi,

Ich bin wirklich langsam am verzweifeln.

IO::File, getlines. Da geht alles raus, was Du eingibst.

Nicht verzweifeln, machen. Wenns geht, besser machen ;)
Hotti

  
#!/usr/bin/perl  
  
use strict;  
use warnings;  
use IO::Socket;  
use IO::Handle;  
  
  
print "Mehrzeilige Eingabe, senden mit ^Z in neuer Zeile\n";  
my $io = new IO::Handle;  
  
my $sock = IO::Socket::INET->new("localhost:9999") or die "no socket";  
  
$io->fdopen(fileno(STDIN),"r");  
print $sock $io->getlines;  
$io->close;  
close $sock;