Obtendo o IP público (Internet) usando o Perl
Publicado por Daniel Vinciguerra (última atualização em 10/03/2016)
[ Hits: 3.051 ]
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;
}
}
Postando mensagem no Facebook com Perl
Script para fazer buscas no arquivo de logs do squid
Automatizando o envio de arquivo p/ o FTP !
IPloc - Informações e localização de um determinado endereço IP
Nenhum comentário foi encontrado.
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
O programa assinador digital (1)
PIP3 - erro ao instalar módulo do mariadb para o Python (9)
É normal não gostar de KDE? (8)
dpkg: erro: gatilho de arquivo duplicado chamado pelo arquivo de nome (6)









