ip_to_int.pl

#!/usr/bin/perl -w

# Converts an integer number representing an IP back into an IP address string

use strict;

sub ip_to_int ($)
{
    my $addr = shift @_;
    return unpack("N", pack("C4", split(/\./, $addr)));
}

sub int_to_ip ($)
{
    my $addr = shift @_;
    return join(".", unpack("C4", pack("N", $addr)));
}

foreach (@ARGV) {
    print "$_ = ", ip_to_int($_), "\n";
}