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';

Obtendo a temperatura com Perl

Buscar Traduções no Google Translate

Postando mensagem no Facebook com Perl

Upload de múltiplos arquivos para Imageshack.us

PDF completo com todas as páginas do Diário Oficial do Estado de Goiás