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

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

[ Hits: 2.895 ]

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

Localizador de palavras em arquivos nao binarios

Script para X-chat

Perl Script para DDoS

Tradutor Babelfish

Iniciando desenvolvimento web ágil com Perl (Mojolicious)


  

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