necesito ayuda para este codigo es para la universidad si me pueden ayudar muchisimas gracias!
mi codigo es este:
#!/usr/bin/perl
use IO::Socket;
use Socket;
print "content-type: text/html \n\n";
$Sock2 = new IO::Socket::INET(
PeerPort=>12000,
Proto=>'tcp',
PeerAddr=>'192.168.2.114',
Blocking => 1);
print "<body>\n";
print $Sock2 "Consulta";
$a = <$Sock2>;
print "la hora del sistema es: $a";
print "</body>";
close($Sock2);
tengo algo mal?..
lo q hace es cuando envio "consulta" el server me tiene q devolver la hora del sistema de una pc en windows, pero cuando lo kiero probar de linux en el mozilla me dice esperando a localhost y no pasa nada q podra ser??
gracias saludos
