[Perl] Funcion getmyip()

[BigBear]

Hola a todos.

Aca les dejo una funcion que hice para reconocer nuestra IP sin necesidad de usar paginas webs con ese molesto servicio online

Código (perl) [Seleccionar] Expandir

#By Doddy H
use IO::Socket;

sub get_ip {
my $get = gethostbyname("");
return inet_ntoa($get);
}


Ejemplo de uso

Código (perl) [Seleccionar] Expandir


print get_ip();