Problema con IO::Socket
Publicado: 2008-12-24 00:50 @077Bueno, muchachos, he estado trabajando con este módulo y hago lo siguiente. No sé si esté incompleto pero lo que pasa es que siempre me dice que no está conectado. Quisiera saber si me pueden ayudar que me hace falta o cómo le mando comandos al servidor para que me responda y así saber si la conexión se hizo eficazmente. Gracias...
El código...
Agradezco su colaboración. La plataforma es Linux en donde estoy practicando
El código...
Using perl Syntax Highlighting
#!/usr/bin/perl
use IO::Socket::INET;
$host = $ARGV[0];
$puerto = $ARGV[1];
if(!$ARGV[0])
{
&errorMessage;
}
$sock = IO::Socket::INET->new(PeerAddr => $host,
PeerPort => $puerto,
Proto => 'tcp') || die "\nNo se pudo conectar con el servidor......";
sub errorMessage()
{
print "Uso : \n";
print "perl <Script> <host> <Puerto>\n";
}
use IO::Socket::INET;
$host = $ARGV[0];
$puerto = $ARGV[1];
if(!$ARGV[0])
{
&errorMessage;
}
$sock = IO::Socket::INET->new(PeerAddr => $host,
PeerPort => $puerto,
Proto => 'tcp') || die "\nNo se pudo conectar con el servidor......";
sub errorMessage()
{
print "Uso : \n";
print "perl <Script> <host> <Puerto>\n";
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Agradezco su colaboración. La plataforma es Linux en donde estoy practicando