regex - 如何使用Perl从文本文件中提取IP地址？

Question

如何仅从每行具有IP地址的文本文件中提取IP地址？我想提取IP，然后在一个单独的文件中列出IP地址。包含IP的文本文件采用以下格式:

主机somehost.com(192.168.1.1)已启动(延迟0.20秒)。
主机10.1.0.0已启动(延迟0.21s)。
主机172.1.0.0已启动(延迟0.21s)。

我正在尝试将生成的文本文件输出如下:

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