由于工作上的需要,要将IP段计算成IP,perl的Net::IP刚好用上.
#!/usr/bin/perl -w use strict; use Net::IP; my $ip = new Net::IP ('192.168.0.0/24') or die; do { print $ip -> ip(),"\n"; } while(++$ip);
将文本文件的ip段计算成ip地址
#!/usr/bin/perl -w use strict; use Net::IP; open (A, ") { my($a) = $_; my $ip = new Net::IP ("$_") or die $!; do { print $ip -> ip(), "\n"; } while (++$ip); }
兄弟,春节快乐啊!
@恭喜恭喜!