Code · 2010-02-06

perl脚本计算IP

由于工作上的需要,要将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);
         }