[Perl] Funcion getmyip()
Publicado: 03 Oct 2015, 00:32
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.
El codigo :
Aca les dejo una funcion que hice para reconocer nuestra IP sin necesidad de usar paginas webs con ese molesto servicio online.
El codigo :
#By Doddy H
use IO::Socket;
sub get_ip {
my $get = gethostbyname("");
return inet_ntoa($get);
}
Ejemplo de uso print get_ip();