[Perl] Funcion para conectarse mediante sockets

Hola a todos.

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

1 2 3 4 5 6 7 8 9 10 11 12 13

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

conectar(host,puerto,parametro a enviar)

Ejemplo de uso

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