Perlについての質問箱 54目

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