Как извлечь IP-адреса из текстового файла с помощью Perl?

Question

Как извлечь только IP-адреса из текстового файла с IP-адресом в строке? Я хотел бы извлечь IP-адреса, а затем перечислить IP-адреса в отдельном файле. Текстовый файл, содержащий IP-адреса, имеет следующий формат:

Хост somehost.com (192.168.1.1) вверх (0,20 с).
Host 10.1.0.0 up (0.21s latency).
Host 172.1.0.0 up (0.21s latency).

Я пытаюсь получить результирующий текстовый файл для вывода следующим образом:

192.168.1.1
10.1.0.0
172.1.0.0

Что является лучшим способом сделать это с помощью Perl?

Примечание: для него не требуется регулярное выражение, на котором учитываются действительные IP-адреса ... только IP-адреса в вышеуказанном формате.

Спасибо!

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