Increment of ip address

mosh has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Increment of ip address by jdporter (Paladin) on Jun 16, 2005 at 16:19 UTC
Net::IP or NetAddr::IP is really the way to go... but for fun, here's a simple IP math function. (Note that it only works on IPv4 addresses.) `use Socket; sub add_to_ip($$) { my( $ip, $add ) = @_; inet_ntoa pack( 'N', unpack('N',inet_aton $ip) + $add ) }` [download] You can add or subtract any amount to an IP address this way. Carry-over into the next "quad" is automatic... but that may not be what you want. :-) `$j = add_to_ip( $i, 1 ); # simple increment $j = add_to_ip( $i, -1 ); # simple decrement $j = add_to_ip( $i, 300 ); # addition carries over into the next-to-la +st quad.` [download]	[reply] [d/l] [select]
Re^2: Increment of ip address by mosh (Scribe) on Jun 16, 2005 at 18:13 UTC
Hi jdporter, Thanks ! What does it mean the $$ in: sub add_to_ip($$) Mosh.	[reply]
Re^3: Increment of ip address by northwind (Hermit) on Jun 16, 2005 at 18:41 UTC
That would be a prototype, the subject of much discussion on usefulness verging on holy war status. The Camel Book says the intent behind prototypes "... is primarily to let you define subroutines that work like built-in functions ..." (p. 226). In this case, it is giving a contextual clue to perl that this sub accepts two scalars.	[reply]
Re: Increment of ip address by davidrw (Prior) on Jun 16, 2005 at 15:57 UTC
Try Net::IP .. note especially that it overloads the `++` operator	[reply] [d/l]
Re^2: Increment of ip address by ikegami (Patriarch) on Jun 16, 2005 at 16:10 UTC
There's also NetAddr::IP which also overloads ++ (and + 1)	[reply]
Re: Increment of ip address by cool_jr256 (Acolyte) on Jun 16, 2005 at 16:02 UTC
'1.2.3.5' is being treated as a string (because of the '.'). You can split up the IP into an array, hence being able to increment any of the ip numbers: `$ip="1.2.3.4"; @ipnum=split(/./,$ip); $ipnum[$#ipnum]++; # this increments the last digit.. # then $ip=join(".",@ipnum); # result is '1.2.3.5';` [download]	[reply] [d/l]
Re^2: Increment of ip address by davidrw (Prior) on Jun 16, 2005 at 17:07 UTC
Make sure that you split on `/\./` and not just 'dot', which is any character. Also, if you increment 192.168.255.255 with that method you're not going to get what you want ... (see other responses for modules to do it for you)	[reply] [d/l]
Re: Increment of ip address by monkey_boy (Priest) on Jun 16, 2005 at 16:10 UTC
Update: As it has been mentioned , this does not work in many situations, please ignore my stupid ramblings .. the simple way .. `use strict; my $ip = '1.2.3.4'; my @ip = split(/\./,$ip); $ip[3]++; print join('.',@ip) , "\n";` [download] This is not a Signature...	[reply] [d/l]
Re: Increment of ip address by monarch (Priest) on Jun 17, 2005 at 00:54 UTC
In thread perl ipcalc oneliners I posted some quick math subroutines you can use for converting your IP address into a number and back for arithmetic purposes without relying on any other module. Try using: `sub addrtoint { return( unpack( "N", pack( "C4", split( /[.]/,$_[0] ) ) ) ) }; sub inttoaddr { return( join( ".", unpack( "C4", pack( "N", $_[0] ) ) ) ) }; my $ipinc = addrtoint( '1.2.3.4' ); $ipinc++; print( inttoaddr( $ipinc ) . "\n" );` [download]	[reply] [d/l]