Re: Sockets en perl

[Julio Galicia <jgalicia en tuxnet net mx>]

q tal, Gunnar:

Mira, me dejo intranquilo tu problema en perl y asi lo solucione:

#!/usr/bin/perl
use IO::Socket;
$serverport=11450;

unlink "/tmp/mysock";
$server=IO::Socket::INET->new(LocalPort=>$serverport,
                          Type=>SOCK_STREAM,
                          Reuse=>1,
                          Listen=>10) or die "Couldn't be a TCP server
on port $serverport";
print "$! - $@";

while ($client = $server->accept()) {
      $client->send("Bienvenido!\n",$flags) or die "Can't send";
      while (<$client>) {           # Aqui lees del socket  
        $client->send($_,$flags) or die "Cant send";
      }
}
close $client;

Espero te sirva. Lo encontre en:

$ perldoc perlipc

bajo TCP.

Seguimos en contacto?
--
///
Julio Galicia (jgalicia en tuxnet net mx)
Instituto Tecnologico de Tuxtepec
Oficina de Proyectos de Investigacion
Casa (287) 55521 Tuxtepec, Oaxaca, Mexico