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

• Download public-ip.pl
• Enviar nova versão

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

Sarg Diario

Web crawler simples em Perl

Gerir VirtualHosts do Apache

Buscar Traduções no Google Translate

Iniciando desenvolvimento web ágil com Perl (Mojolicious)

Nenhum coment�rio foi encontrado.