int_to_ip.pl

#!/usr/bin/perl -w

# Converts an IP address string to a single integer number

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 "$_ = ", int_to_ip($_), "\n";
}