[Previo por Fecha] [Siguiente por Fecha] [Previo por Hilo] [Siguiente por Hilo]
[Hilos de Discusión] [Fecha] [Tema] [Autor]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