1

我需要找到用户输入的任何 IP 的子网。我ypcat -k netmasks.byaddr在 perl 中执行“” unix 命令来查找网络掩码。它在命令行执行中运行良好。但是在网络服务器中执行时它不起作用。

下面是代码。

use strict;
use CGI;
my $page=new CGI;

print $page->header;

my $ipaddress=$page->param("ip");
my @splitted=split(/\./,$ipaddress);

my $part1=$splitted[0].".".$splitted[1].".".$splitted[2];
my $part2=$splitted[3];

my $comma1="ypcat -k netmasks.byaddr|grep -w $part1|awk '{print \$1}'|awk -F. '{print \$4}'|sort -g";
my $comm2="ypcat -k netmasks.byaddr|grep -w $part1|sort";

my @out=`$comm1`;
my @out2=`$comm2`;

my $match;my $sub;my $found;
foreach my $i(@out){
        chomp($i);
        if($part2 > $i){
                $sub=$i;
                $found=$part1.".".$sub;
        }
}

my (@matched) = grep $_=~m/$found/, @out2;
chomp(@matched);
print "@matched\n";

以上是我用来查找给定 IP 的子网的代码。因为“$comm1”和“$comm2”的执行失败了。是否有任何其他方法可以使用 Perl 脚本查找用户输入 IP 的子网？

谢谢，马丹

4

1 回答 1

0

您可以将NetAddr::IP 模块用于此作业，如下所示：

#!/usr/local/bin/perl
use strict;
use warnings;
use CGI;
use NetAddr::IP;

my $page = new CGI;
print $page->header;
my $ipaddress = $page->param("ip");
my $ip = NetAddr::IP->new($ipaddress);
print "The address is ", $ip->addr, " with mask ", $ip->mask, "\n" ;
于 2013-05-28T11:42:08.940 回答