Come estrarre gli indirizzi IP da un file di testo usando Perl?

Question

Come estrarre solo gli indirizzi IP da un file di testo che ha un indirizzo IP per riga? Vorrei estrarre gli IP e quindi elencare gli indirizzi IP in un file separato. Il file di testo che contiene gli IP è nel seguente formato:

Host somehost.com (192.168.1.1) è attivo (latenza di 0.20 s).
L'host 10.1.0.0 è attivo (latenza di 0.21 s).
L'host 172.1.0.0 è attivo (latenza di 0.21 s).

Sto cercando di ottenere il file di testo risultante per l'output come segue:

192.168.1.1
10.1.0.0
172.1.0.0

Qual è il modo migliore per fare questo usando Perl?

Nota: non richiede un'espressione regolare che conti per IP validi ... solo gli IP nel formato sopra lo faranno.

Grazie!

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/; 
}