Este es mi primer post en este foro... Espero puedan ayudarme.
Estoy desarrollando un programa con sockets de un ejemplo que vi en este foro
Este es el código del server:
use IO::Socket;
print "Server Socket Program... \n";
$sock = new IO::Socket::INET(
LocalPort => 1234,
Listen => 128,
Reuse => 1,
Proto => 'tcp') || die "Error creating socket: $!";
print "-- Server Program --\n";
while($cliente = $sock->accept() )
{
$cliente->autoflush(1);
while (defined($line=<$cliente>))
{ ...
News of Foro - Perl en Español