如何使用Perl從文本文件中提取IP地址？

Question

如何僅從每行具有IP地址的文本文件中提取IP地址？我想提取IP，然後在單獨的文件中列出IP地址。包含IP的文本文件採用以下格式：

主機somehost.com（192.168.1.1）已啓動（0.20秒延遲）。
主機10.1.0.0已啓動（延遲0.21秒）。
主機172.1.0.0已啓動（延遲0.21秒）。

我試圖讓生成的文本文件輸出如下：

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