ip比较

snowtty

#!/usr/bin/perl -w
use strict;
use Socket;
my $c = inet_aton("192.168.1.1");
print "$c\n";
my $min = unpack("N", inet_aton("192.168.1.1"));
my $max = unpack("N", inet_aton("192.168.2.255"));
my $ip = unpack("N", inet_aton("192.168.2.34"));
print "$min $ip $max\n";
if ($ip >= $min && $ip

本文来自ChinaUnix博客，如果查看原文请点：http://blog.chinaunix.net/u/5591/showart_2163020.html