Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

use strict;
...

        return (($range_low <= $ip) && ($ip <= $range_hi));
}

Select or download this

print IsInRange ("192.168.2.42","192.168.0.0/16"),"\n";  # 1
print IsInRange ("192.168.2.42","192.168.0.0/24"),"\n";  # undef
print IsInRange ("192.168.2.42","192.168.2.0/24"),"\n";  # 1
print IsInRange ("24.123.234.1","24.0.0.0/8"),"\n";      # 1