perl 判断ip是否在某个子网

发布时间：2020-12-15 20:59:03 所属栏目：大数据来源：网络整理

导读：? #!/usr/bin/perl -w use Net::IP; ? my $ip= new Net::IP('192.168.0.0'); ? my $cut=16; ? my $net1=substr($ip-binip(),$cut); ? my $input=$ARGV[0]; ? my $new=new Net::IP($input); ? my $net2=substr($new-binip(),$cut); ? print "$net1n$net2n";

#!/usr/bin/perl -w

use Net::IP;

my $ip= new Net::IP('192.168.0.0');

my $cut=16;

my $net1=substr($ip->binip(),$cut);

my $input=$ARGV[0];

my $new=new Net::IP($input);

my $net2=substr($new->binip(),$cut);

print "$net1n$net2n";

if($net1 eq $net2)

{

? print "yesn";

}

else{

? print "non";

}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!