#!/usr/bin/

perl

 

use strict;
use warnings;
use Carp;

my $ip = '255.255.255.255';

my $ip_int = ip_to_int($ip);

my $ip_new = int_to_ip($ip_int);

print "$ip -> $ip_int -> $ip_new ";

exit;

#-------------------------------------------------------------------------------

sub ip_to_int {
    my ($ip) = @_;

    my $ip_int;
    if ( my ( $ip_a, $ip_b, $ip_c, $ip_d ) =
        $ip =~ m{ ^(d{1,3}).(d{1,3}).(d{1,3}).(d{1,3})$ }xms )
    {
        $ip_int =
            ( $ip_a * 256**3 ) + ( $ip_b * 256**2 ) + ( $ip_c * 256 ) + $ip_d;
    }
    else {
        croak "Invalid IP Address: $ip";
    }

    return $ip_int;
}

#-------------------------------------------------------------------------------

sub int_to_ip {
    my ($ip_int) = @_;

    my $ip =
          ( ( $ip_int / 256**3 ) % 256 ) . q{.}
        . ( ( $ip_int / 256**3 ) % 256 ) . q{.}
        . ( ( $ip_int / 256**3 ) % 256 ) . q{.}
        . ( $ip_int % 256 );

    return $ip;
}

#-------------------------------------------------------------------------------