Script Perl para recuperar una dirección IP externa

Este simple script Perl imprimirá su dirección IP externa asignada por su proveedor de Internet (ideal para alguien con dirección IP dinámica).

Primero, descargamos un archivo HTML desde ipchicken.com y luego expresar este archivo para que coincida con la dirección IP en formato x.X.X.X usando expresión regular.

A continuación, el script elimina todos los caracteres innecesarios e imprime su dirección IP externa en el terminal. Por último, el script elimina el índice descargado previamente.archivo html.

get-external-ip.PL:

#!/usr/bin/perl # obtener el archivo HTML con el sistema de dirección IP externa ("wget ​​-q http: // ipchicken.com "); Open (archivo, ' 
Tutoriales de Linux relacionados:
Bash Regex avanzado con ejemplos
Cómo comparar archivos usando DIFF
Cómo montar la imagen ISO en Linux
Archivos de configuración de Linux: los 30 principales más importantes
Mastering Bash Script Loops
Expresiones regulares de Python con ejemplos
Cosas que hacer después de instalar Ubuntu 20.04 fossa focal Linux
Cómo configurar un servidor OpenVPN en Ubuntu 20.04
Una introducción a la automatización, herramientas y técnicas de Linux
XARGS multiprocesado con ejemplos