Saved has asked for the wisdom of the Perl Monks concerning the following question:
I'm sure many have created code to ascertain if an IP is within a certain range of IP's. Could you please get me started, or point me in the right direction? Thanx
Got this from: http://www.perlmonks.org/?node_id=190497
use NetAddr::IP; my $space = new NetAddr::IP->new('10.128.0.0/17'); for my $ip (map { new NetAddr::IP->new($_) } <DATA>) { print $ip, "\n" if $space->contains($ip); } __DATA__ 172.16.1.1 172.16.1.5 172.16.1.11 172.16.1.10 172.16.1.9 172.16.1.3 172.16.1.2 172.16.1.7 172.16.1.4 172.16.1.1 10.128.0.1 10.128.0.12 10.128.0.13 10.128.0.41 10.128.0.17 10.128.0.19
It Gives: syntax error at C:\strawberry\Scripts\NetAddrTest.plx line 5, near "<" syntax error at C:\strawberry\Scripts\NetAddrTest.plx line 6, near ">) " Execution of C:\strawberry\Scripts\NetAddrTest.plx aborted due to compilation er rors. What is <?
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Within a range of IP Addresses
by NetWallah (Canon) on Mar 06, 2012 at 14:23 UTC | |
|
Re: Within a range of IP Addresses
by marto (Cardinal) on Mar 06, 2012 at 14:24 UTC | |
|
Re: Within a range of IP Addresses
by kcott (Archbishop) on Mar 06, 2012 at 14:29 UTC | |
|
Re: Within a range of IP Addresses
by kcott (Archbishop) on Mar 06, 2012 at 22:37 UTC | |
by Saved (Beadle) on Mar 07, 2012 at 13:02 UTC |