Obtendo o IP público (Internet) usando o Perl
Publicado por Daniel Vinciguerra (última atualização em 10/03/2016)
[ Hits: 2.636 ]
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; } }
Gmail::SendMail - Enviando emails usando gmail
Synner Novo Sys(TCP) Flooder em Perl
Avisar por e-mail se o IP da conexão ADSL mudar
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (1)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
erro ao clonar repo github (7)
ASRock H310CM-HG4 vs Linux (1)
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (26)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba