Obtendo o IP público (Internet) usando o Perl
Publicado por Daniel Vinciguerra (última atualização em 10/03/2016)
[ Hits: 2.645 ]
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; } }
Automatizando o envio de arquivo p/ o FTP !
Descubra se seu e-mail ou conta foi "pwned"
Buscar Traduções no Google Translate
Nenhum comentário foi encontrado.
Crie alias para as tarefas que possuam longas linhas de comando - bash e zsh
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Entendendo o que é URI, URL, URN e conhecendo as diferenças entre POST e GET
Instalando Navegador Firefox no Debian 12
Bloqueando propagandas no Youtube e outros sites com o uBlocker Origin
Criando um Pen Drive Bootável no Linux
problemas com artefatos na instalação (26)
Como usar o WhatsApp no PC sem precisar escanear o qrcode ou utilizar... (5)
script para criar pacote .rpm (4)
Não existe o slackbuild do bash no repositório slackbuild? (2)