Help for this page

Select Code to Download


  1. or download this
    use Net::CIDR::Lite;

my $b = Net::CIDR::Lite->new( '218.0.0.0 - 221.255.255.255' );
print "Match!\n" if $b->find('216.23.234.32');
  2. or download this
    use Socket;

...
my $ip2 = inet_aton('221.255.255.255');
my $ip3 = inet_aton('216.23.234.32');
print "Match!\n" if $ip1 <= $ip3 and $ip3 <= $ip2;