12/07/31 20:28:34.48
>>1乙
前スレ988へ
use strict ;
use warnings ;
my $netmask = '123.123.123.0/22';
my $ip = '123.123.123.111' ;
my ( $org_ip, $byte ) = split m{/}, $netmask ;
my $packed_one = unpack "B$byte", pack 'C4', split ( /\./, $ip ) ;
my $packed_two = unpack "B$byte", pack 'C4', split ( /\./, $org_ip ) ;
if ( $packed_one eq $packed_two ){ print "hit\n" ; }