Using perl Syntax Highlighting
#!/usr/bin/perl -w
use IO::Socket;
use Net::hostent;
$server=IO::Socket::INET->new(Proto=>'tcp',LocalPort=>5800,Listen=>1,Reuse=>1);
print "server=$server\n";
die "no puede configurar servidor" unless $server;
print "Server $0 aceptando clientes";
while($cliente=$server->accept()){
$cliente->autoflush(1);
print "cliente=$cliente";
while(defined($line=<$cliente>)){
print $cliente $line
}
close $cliente;
}
use IO::Socket;
use Net::hostent;
$server=IO::Socket::INET->new(Proto=>'tcp',LocalPort=>5800,Listen=>1,Reuse=>1);
print "server=$server\n";
die "no puede configurar servidor" unless $server;
print "Server $0 aceptando clientes";
while($cliente=$server->accept()){
$cliente->autoflush(1);
print "cliente=$cliente";
while(defined($line=<$cliente>)){
print $cliente $line
}
close $cliente;
}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Al ejecutarlo mediante perl p2.pl en la consola solo se observa:
- Código: Seleccionar todo
Server=IO::Socket::INET=GLOB(0X198be08)
Del lado del emisor tengo el código:
Using perl Syntax Highlighting
#!/usr/bin/perl-w
use IO::Socket;
$sock=IO::Socket::INET->new(PeerAddr=>"10.0.0.16",PeerPort=>5800,Proto=>'tcp',Timeout=>1);
die "problema" unless $sock;
chomp($msg=<STDIN>);
print $sock $msg;
print "Hola portatil";
close $sock;
use IO::Socket;
$sock=IO::Socket::INET->new(PeerAddr=>"10.0.0.16",PeerPort=>5800,Proto=>'tcp',Timeout=>1);
die "problema" unless $sock;
chomp($msg=<STDIN>);
print $sock $msg;
print "Hola portatil";
close $sock;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Al ejecutarlo en el terminal del otro PC mediante el comando p1.pl se observa en la consola el valor centinela Hola Portatil pero sin embargo en el receptor no se recibe nada.
¿Podrían ayudarme a corregir fallas?