[Perl] Funcion conectar()

BigBear · Julio 03, 2011, 09:40:26 PM

Hola a todos.

Aca les dejo una funcion para conectarse mediante sockets al servidor que quieran

Código: perl


use IO::Socket;

sub conectar {

my $sockex = new IO::Socket::INET(PeerAddr => $_[0],PeerPort => $_[1],
Proto => "tcp",Timeout  => 5);

print $sockex $_[2]."\r\n";
$sockex->read($re,5000);
$sockex->close;
return $re."\r\n";
}

Sintasis

Código: php


conectar(host,puerto,parametro a enviar)

Ejemplo de uso

Código: perl

	
$re = conectar("127.0.0.1","80","GET /sql.php HTTP/1.0\r\n");
print $re;

[Perl] Funcion conectar()

BigBear

Julio 03, 2011, 09:40:26 PM Ultima modificación: Marzo 14, 2015, 10:08:20 AM por Expermicid