O script é simples e serve para mostrar a geolocalização de um IP.

Ele mostra o órgão que detém o IP e sua localização. Como todos nós já sabemos, a geolocalização de IP ainda não é 100 % precisa, por isso podem haver "falsas informações".

Obs.: eu usei o "Term::ANSIColor" para personalizar as cores, caso você não tenha esse módulo pode instalá-lo com o comando:

# cpan -i Term::ANSIColor

Ou não usá-lo, excluindo ou comentando as linhas no código.

:)

• Download IPloc.pl
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl

use Socket;
use Term::ANSIColor;

# Information from IP or host
# Code by KoubackTr
# http://www.twitter.com/kouback_tr_


print color 'bold green';
print "*================================================*\n";
print "[IPloc - Location and information from IP address]\n";
print " By KoubackTr http://www.twitter.com/kouback_tr_ \n";
print "*================================================*\n";
print "\n";
print color 'reset';
@iphost=$ARGV[0] || die "Use: IPloc <host/ip> \nEx:  IPloc www.google.com \n     IPloc 74.125.224.208\n \n";
my @ip = inet_ntoa(scalar gethostbyname("@iphost")or die "Ip ou Host invalido\n");
my @hn = scalar gethostbyaddr(inet_aton(@ip),AF_INET);

@dados=("curl -s 'http://api.ipinfodb.com/v3/ip-city/?key=e9deb425dd071948093f827111646df275796975eb55da00fe7a0a7c633a907b&format=text&ip=@ip'");

print color 'bold green';
print"*========*===================================*\n";
print"ISP:/\n";system("whois @ip | grep 'owner:' ");
print"+--------------------------------------------*\n";
print"|IP      |  @ip\n";
print"|Hostname|  @hn\n";
print"|País    |  ";system("@dados |cut -d ';' -f5");
print"|Estado  |  ";system("@dados |cut -d ';' -f6");
print"|Cidade  |  ";system("@dados |cut -d ';' -f7");
print"|Lat     |  ";system("@dados |cut -d ';' -f9");
print"|Long    |  ";system("@dados |cut -d ';' -f10");
print"*========*====================================*\n";
print color 'reset';

Servidor BBS

Obtendo a temperatura com Perl

Web crawler simples em Perl

Iniciando desenvolvimento web ágil com Perl (Mojolicious)

Postando mensagem no Facebook com Perl