Bug #62123 for NetAddr-IP: Can you parse "parse address<space>netmask"

Thu Oct 14 07:53:21 2010 SILASMONK [...] cpan.org - Ticket created

Subject:

Can you parse "parse address<space>netmask"

This is to forward on a request from a Debian user. a typically formatting of ip addresses with netmasks in the cisco world is address<space>netmask. NetAddr::IP already knows about address and netmask seperated by "/" so seperating by " " should be straight forward. something like this solves it although i have no idea about the implications ... Havent run the testsuite ... --- NetAddr/IP/Lite.pm.orig 2008-12-15 11:18:53.000000000 +0100 +++ NetAddr/IP/Lite.pm 2008-12-15 11:19:00.000000000 +0100 @@ -516,7 +516,7 @@ while (1) { unless (@_) { - if ($ip =~ m!^(.+)/(.+)$!) { + if ($ip =~ m!^(.+)[/ ](.+)$!) { $ip = $1; $mask = $2; } elsif (grep($ip eq $_,qw(default any broadcast loopback unspecified))) { perl -e 'use NetAddr::IP; $i=new NetAddr::IP "10.0.0.1 255.255.255.0" or die; print $i->addr . "\n"' 10.0.0.1 The bug report is at http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=508775

Thu Oct 28 19:11:11 2010 michael [...] bizsystems.com - Correspondence added

On Thu Oct 14 07:53:21 2010, SILASMONK wrote: Show quoted text

> This is to forward on a request from a Debian user. > > > a typically formatting of ip addresses with netmasks in the cisco world > is address<space>netmask. NetAddr::IP already knows about > address and netmask seperated by "/" so seperating by " " should > be straight forward. > > something like this solves it although i have no idea about the > implications ... Havent run the testsuite ... > > --- NetAddr/IP/Lite.pm.orig 2008-12-15 11:18:53.000000000 +0100 > +++ NetAddr/IP/Lite.pm 2008-12-15 11:19:00.000000000 +0100 > @@ -516,7 +516,7 @@ > > while (1) { > unless (@_) { > - if ($ip =~ m!^(.+)/(.+)$!) { > + if ($ip =~ m!^(.+)[/ ](.+)$!) { > $ip = $1; > $mask = $2; > } elsif (grep($ip eq $_,qw(default any broadcast loopback > unspecified))) { > > > > perl -e 'use NetAddr::IP; $i=new NetAddr::IP "10.0.0.1 255.255.255.0" or > die; print $i->addr . "\n"' > 10.0.0.1 > > > > The bug report is at

http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=508775 see added methods "new_cis" and "new_cis6" in release 4.035

Thu Oct 28 19:11:12 2010 The RT System itself - Status changed from 'new' to 'open'

Thu Oct 28 19:11:12 2010 michael [...] bizsystems.com - Status changed from 'open' to 'resolved'

Fri Dec 17 21:25:54 2010 michael [...] bizsystems.com - Correspondence added

I have updated NetAddr::IP v4.038 to include the Cisco syntax in the "new" series of methods. Calls to "new_cis" and "new_cis6" are now DEPRECATED and unneeded. On Thu Oct 28 19:11:11 2010, MIKER wrote: Show quoted text

> On Thu Oct 14 07:53:21 2010, SILASMONK wrote:

> > This is to forward on a request from a Debian user. > > > > > > a typically formatting of ip addresses with netmasks in the cisco world > > is address<space>netmask. NetAddr::IP already knows about > > address and netmask seperated by "/" so seperating by " " should > > be straight forward. > > > > something like this solves it although i have no idea about the > > implications ... Havent run the testsuite ... > > > > --- NetAddr/IP/Lite.pm.orig 2008-12-15 11:18:53.000000000 +0100 > > +++ NetAddr/IP/Lite.pm 2008-12-15 11:19:00.000000000 +0100 > > @@ -516,7 +516,7 @@ > > > > while (1) { > > unless (@_) { > > - if ($ip =~ m!^(.+)/(.+)$!) { > > + if ($ip =~ m!^(.+)[/ ](.+)$!) { > > $ip = $1; > > $mask = $2; > > } elsif (grep($ip eq $_,qw(default any broadcast loopback > > unspecified))) { > > > > > > > > perl -e 'use NetAddr::IP; $i=new NetAddr::IP "10.0.0.1 255.255.255.0" or > > die; print $i->addr . "\n"' > > 10.0.0.1 > > > > > > > > The bug report is at

> http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=508775 > > > see added methods "new_cis" and "new_cis6" in release 4.035

Fri Dec 17 21:25:55 2010 The RT System itself - Status changed from 'resolved' to 'open'

Fri Dec 17 21:26:24 2010 michael [...] bizsystems.com - Correspondence added

On Fri Dec 17 21:25:54 2010, MIKER wrote: Show quoted text

> I have updated NetAddr::IP v4.038 to include the Cisco syntax in the > "new" series of methods. Calls to "new_cis" and "new_cis6" are now > DEPRECATED and unneeded. > > On Thu Oct 28 19:11:11 2010, MIKER wrote:

> > On Thu Oct 14 07:53:21 2010, SILASMONK wrote:

> > > This is to forward on a request from a Debian user. > > > > > > > > > a typically formatting of ip addresses with netmasks in the cisco

world Show quoted text

> > > is address<space>netmask. NetAddr::IP already knows about > > > address and netmask seperated by "/" so seperating by " " should > > > be straight forward. > > > > > > something like this solves it although i have no idea about the > > > implications ... Havent run the testsuite ... > > > > > > --- NetAddr/IP/Lite.pm.orig 2008-12-15 11:18:53.000000000 +0100 > > > +++ NetAddr/IP/Lite.pm 2008-12-15 11:19:00.000000000 +0100 > > > @@ -516,7 +516,7 @@ > > > > > > while (1) { > > > unless (@_) { > > > - if ($ip =~ m!^(.+)/(.+)$!) { > > > + if ($ip =~ m!^(.+)[/ ](.+)$!) { > > > $ip = $1; > > > $mask = $2; > > > } elsif (grep($ip eq $_,qw(default any broadcast loopback > > > unspecified))) { > > > > > > > > > > > > perl -e 'use NetAddr::IP; $i=new NetAddr::IP "10.0.0.1

255.255.255.0" or Show quoted text

> > > die; print $i->addr . "\n"' > > > 10.0.0.1 > > > > > > > > > > > > The bug report is at

> > http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=508775 > > > > > > see added methods "new_cis" and "new_cis6" in release 4.035

> >

Fri Dec 17 21:26:26 2010 michael [...] bizsystems.com - Status changed from 'open' to 'resolved'