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

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

[ Hits: 2.796 ]

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

AUTENTICACAO VELOX

Obtendo a temperatura com Perl

AUTENTICACAO VELOX

API do Bing para traduzir textos

Postando mensagem no Facebook com Perl


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts