- 543 名前：デフォルトの名無しさん mailto:sage [2006/03/32(土) 06:32:36 ]
- こういうパズル的なのはどこでも答えてもらえそう
my $target = "222.4.0.0";
my @iptable = qw( 国名A-221.184.0.0-221.191.255.255 国名B-221.240.0.0-222.15.255.255 国名C-222.144.0.0-222.151.255.255 );
$target = pack("C"x4, split(/\./, $target));
for(@iptable){
my($country, $from, $to) = split /-/;
$from = pack("C"x4, split(/\./, $from));
$to = pack("C"x4, split(/\./, $to));
if($from le $target && $target le $to){
print "$countryが範囲内でした\n"
}
}
