my $ip="192.168.2.233";

$ip=~m"  d+  .  d+  .  (d+)  .  (d+)"x;

if ( ( $1==1 and $2>=11 ) or ($1==2 and $2<=255) ) {

        print "good ip";

}

#!/usr/bin/perl -w

use strict;

use Socket;

 

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"));

 

if ($ip >= $min && $ip <= $max) {

        print "Valid
";

} else {

        print "Invalid
";

}

In reply to:

---

可不可以不用inet_aton这些库函数啊,我机器上没这些库.

---

#!/usr/bin/perl -w



use strict;



sub address {

        my ($a, $b, $c, $d) = split (/./, $_[0]);

        return $a << 24 | $b << 16 | $c << 8 | $d;

}



my $min = address("192.168.1.1");

my $max = address("192.168.2.255");

my $ip = address("192.168.2.34");



if ($ip >= $min && $ip <= $max) {

        print "Valid
";

} else {

        print "Invalid
";

}