Re: Increment of ip address

[monarch]

in reply to Increment of ip address

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" );