¿Cómo extraer direcciones IP de un archivo de texto usando Perl?

Question

¿Cómo extraigo solo las direcciones IP de un archivo de texto que tiene una dirección IP por línea? Me gustaría extraer las direcciones IP y luego enumerar las direcciones IP en un archivo separado. El archivo de texto que contiene las IP tiene el siguiente formato:

El host somehost.com (192.168.1.1) está activo (latencia de 0.20s).
El host 10.1.0.0 está activo (latencia de 0.21s).
El host 172.1.0.0 está activo (latencia de 0.21s).

Estoy tratando de obtener el archivo de texto resultante en la salida de la siguiente manera:

192.168.1.1
10.1.0.0
172.1.0.0

¿Cuál es la mejor manera de hacer esto usando Perl?

Nota: No requiere una expresión regular que tenga en cuenta las direcciones IP válidas ... solo las direcciones IP en el formato anterior funcionarán.

Gracias!

Answer 1

use Regexp::Common qw/net/; 
while (<>) { 
    print $1, "\n" if /($RE{net}{IPv4})/; 
} 

Answer 2

while(<>) 
{ 
    print "$1\n" if /\b(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\b/; 
}