Net::IPAddress::Filter - A compact and fast IP Address range filter
my $filter = Net::IPAddress::Filter->new(); $filter->add_range('10.0.0.10', '10.0.0.50'); $filter->add_range('192.168.1.1'); print "In filter\n" if $filter->in_filter('10.0.0.25');
Net::IPAddress::Filter uses the XS module Set::IntervalTree under the hood. An Interval Tree is a data structure optimised for fast insertions and searches of ranges, so sequential scans are avoided. The XS tree data structure is more compact than a pure Perl version of the same.
In initial testing on an AMD Athlon(tm) 64 X2 Dual Core Processor 4200+, Net::IPAddress::Filter did about 60k range inserts/sec, and about 100k lookups per second. The process memory size grew by about 1MB per 7,500 ranges inserted.
Constructs new blank filter object.
Returns: Blessed filter object.
Expects: $start_ip - A dotted quad IP address string. $end_ip - An optional dotted quad IP address string. Defaults to $start_ip.
Test whether a given IP address is in one of the ranges in the filter.
Expects: $test_ip - A dotted quad IP address string.
Returns: 1 if test IP is in one of the ranges. 0 otherwise.
Utility function to convert a dotted quad IP address to a number.
TODO: Handle IPv6 addresses as well.
Expects: A dotted quad IP address string.
Returns: The integer representation of the IP address.
Set::IntervalTree uses long ints internally, and IPv6 needs 128-bit numbers.
IPFilter.dat Files and checking a given IP against this ipfilter.dat IP Range.
Dave Webb <Net-IPAddress-Filter@d5ve.com>
This software is copyright (c) 2012 by Dave Webb.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.