Script Perl para recuperar um endereço IP externo

Este script PERL simples imprimirá seu endereço IP externo atribuído pelo seu provedor de internet (ótimo para alguém com endereço IP dinâmico).

Primeiro, baixamos um arquivo html de ipchicken.com e depois frase este arquivo para corresponder a endereço IP no formato x.X.X.X usando expressão regular.

Em seguida, o script remove todos os caracteres desnecessários e imprime seu endereço IP externo no terminal. Por fim, o script remove o índice baixado anteriormente.arquivo html.

Get-External-IP.PL:

#!/usr/bin/perl # obtenha arquivo html com sistema de endereço IP externo ("wget ​​-q http: // ipchicken.com "); aberto (arquivo, ' 
Tutoriais do Linux relacionados:
Bash Regex avançado com exemplos
Como comparar arquivos usando diff
Como montar a imagem ISO no Linux
Arquivos de configuração do Linux: os 30 primeiros mais importantes
Mastering Bash Script Loops
Expressões regulares do Python com exemplos
Coisas para fazer depois de instalar o Ubuntu 20.04 fossa focal linux
Como configurar um servidor OpenVPN no Ubuntu 20.04
Uma introdução à automação, ferramentas e técnicas do Linux
Xargs com vários threads com exemplos