Obtendo o IP público (Internet) usando o Perl
Publicado por Daniel Vinciguerra (última atualização em 10/03/2016)
[ Hits: 2.938 ]
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; } }
Baixar o Diário Oficial da União e salvar como um único PDF completo
Avisar por e-mail se o IP da conexão ADSL mudar
Automatizando o envio de arquivo p/ o FTP !
Postando mensagem no Facebook com Perl
Nenhum comentário foi encontrado.
Como gerar um podcast a partir de um livro em PDF
Automatizando digitação de códigos 2FA no browser
Resolver problemas de Internet
Como compartilhar a tela do Ubuntu com uma Smart TV (LG, Samsung, etc.)
Como Instalar o Microsoft Teams no Linux Ubuntu
Músicas de Andrew Hulshult no DOOM (WAD)
Instalar o Apache, MySQL e PHP no Oracle Linux 8
Bloqueando telemetria no Deepin 23.1
Como converter imagens PNG/JPEG para SVG em linha de comando