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
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
#!/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; } }
Localizador de palavras em arquivos nao binarios
Iniciando desenvolvimento web ágil com Perl (Mojolicious)
Nenhum comentário foi encontrado.
Criar entrada (menuentry) ISO no Grub
Como gerar qualquer emoji ou símbolo unicode a partir do seu teclado
Instalar o VIM 9.1 no Debian 12
Como saber o range de um IP público?
Muitas dificuldades ao instalar distro Linux em Notebook Sony Vaio PCG-6131L (VPCEA24FM)
Slackpkg+ (Slackpkg Plus) está de volta!
Como dividir duas janelas igualmente e lado-a-lado na sua tela
Ocomon 6.0.1 - Problemas ao editar configurações estendidas (7)
instalar o Linux em computadores Acer novos (7)
Será possível instalar Linux Mint LMDE em Sony Vaio? (19)
O livro "Linux - Guia do Administrador do Sistema (Rubem E. Ferre... (1)