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

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

[ Hits: 2.394 ]

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

Buscar Traduções no Google Translate

Index Location

API do Bing para traduzir textos

Sarg Diario

WordPress Plugin check


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts