вот такую программку:
#!/usr/bin/perl
my $ip=shift;
print "IP-address $ip is ";
print "not " unless (&ukr_ip($ip));
print "ukrainian\\n";
exit;
sub ukr_ip {
my $uaddr=shift;
map {
my ($oaddr,$mask)=split/\\//,$_;
my $poaddr=unpack("L",pack("C4",(split (/\\./, $oaddr))));
my $puaddr=unpack("L",pack("C4",(split (/\\./, $uaddr))));
my $pmask=unpack("L",pack("B32",(1 x $mask)));
return 1 if (($puaddr & $pmask)==($poaddr & $pmask));
}();
return 0;
}
__DATA__
62.16.0.0/19
62.64.64.0/18
62.64.116.0/22