IO::Socket dauerhafte verbindung

[Günter Laudenklos]

Hallo Manfred,

Kannst du mir bitte auf die spruenge helfen? Suche schon die ganze zeit in google aber entweder bringt es mir nichts oder ich versteh es nicht. Habe auch schon die ganze zeit mit den funktionen rumgetestet wie listen oder socketpair aber ich bring es nicht zum laufen.

hier ist ein Beispiel:

  
use	IO::Socket;  
use	strict;  
my $Port   = 4712;  
my $Server =   IO::Socket::INET    ->  new(LocalPort   =>  $Port,       # tell tcp about acting as a server  
                                           Type        =>  SOCK_STREAM,  
                                           Reuse       =>  1,  
                                           Listen      =>  SOMAXCONN)  
                                       ||  die "Couldn't be a tcp server on port $Port : $@";  
  
my  $Client   =   '';                  # define client's pointer  
my  $request;  
  
while ($Client = $Server -> accept())  # $Client is the new connection  
{  
   $request = <$Client>;               # read client's request  
  
   #  do something ....  
  
   close ($Client);                    # client should be satisfied  
}  

Gruß Günter