+ -
当前位置:首页 → 问答吧 → perl能提取其中的ip吗

perl能提取其中的ip吗

时间:2011-01-09

来源:互联网

有这样的字符串:
ip address 202.119.12.29 255.255.255.248
请问,能够通过perl编程,找出这个范围里的所有ip吗?

注:上面的ip地址可能是这个网段里的任何一个位置,就是说不能简单的将ip地址的最后8bit减1后就得出这个网段的最开始ip,然后根据掩码依次加到网段的最后。

需要的输出结果是:
202.119.12.24
202.119.12.25
202.119.12.26
202.119.12.27
202.119.12.28
202.119.12.29
202.119.12.30
202.119.12.31

我是想对这个范围里的所有ip地址ping测试,如果一个文件里有很多这样的ip address x.x.x.x x.x.x.x
,若是能通过程序提取出来就好了,不知道有没有这样的功能。

作者: zljjg2000   发布时间: 2011-01-09



QUOTE:
$ perl -MNet::CIDR::Set -le 'my $set = Net::CIDR::Set->new("202.119.12.29/255.255.255.248");print $set->as_range_array(2)'

202.119.12.24-202.119.12.31



A homework question, I hate this.

作者: 兰花仙子   发布时间: 2011-01-09