Obtendo o IP público (Internet) usando o Perl

Publicado por Daniel Vinciguerra (última atualização em 10/03/2016)

[ Hits: 2.215 ]

Homepage: http://bivee.com.br

Download public-ip.pl




Algumas vezes nós precisamos saber qual é o nosso endereço de IP público (que é diferente do de rede) e uma das formas de fazer isso é acessando serviços online que mostram seu IP.

PRÉ-REQUISITOS:

- Perl 5.10 ou superior

REFERÊNCIAS:

https://metacpan.org/pod/LWP::UserAgent

EXECUTANDO:

Para executar o script:

$ perl public-ip.pl

  



Esconder código-fonte

#!/usr/bin/env perl 
# 2016 (c) Daniel Vinciguerra

use 5.10.0;
use strict;
use warnings;

use LWP::UserAgent;

# sites fonte
my $source_list = [
    'http://ipinfo.io/ip', 'http://checkip.dyndns.org'
];

# objeto user agent
my $ua = LWP::UserAgent->new;

for my $site (@$source_list){
    my $res = $ua->get($site);
    if($res->is_success){
        # parseando o ip
        $res->content =~ m/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/;

        # tenta o próximo site caso não encontre
        next unless $1; 
        
        # retorna o ip
        say $1 and last;
    }
}


Scripts recomendados

Index Location

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

Pagerank Checker

Descobrir operadora de celular

IPloc - Informações e localização de um determinado endereço IP


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts