Perl Script: dig-to-hosts

#!/usr/local/bin/perl -w

#--------------------------------------------------------------------------------------
#
use strict;
use Getopt::Long;

#--------------------------------------------------------------------------------------
#
my $opt_debug = 2;
my $opt_dig = '/usr/bin/dig';
my $opt_digopts = '';
my $opt_server = 'ns1';
my $opt_domain = '';

# put options processing here
GetOptions( 'd+'             => \$opt_debug,
            'dig=s'          => \$opt_dig,
            'digopts=s'      => \$opt_digopts,
            'server=s'       => \$opt_server,
            'domain=s'       => \$opt_domain );


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

my %IPS = ();
my %CNAMES = ();
my $cmd = sprintf "%s %s @%s %s AXFR", $opt_dig, $opt_digopts, $opt_server, $opt_domain;

#--------------------------------------------------------------------------------------
#
my $OUTPUT = qx{ $cmd };

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

foreach my $line ( split("\n", $OUTPUT ) ) {

    print "$line\n" if ($opt_debug > 3);

    if ( $line =~ m!^(\S+)\s+\S+\s+\S+\s+(\S+)\s+(\S+)$!oig) {

        my ($hostname, $atype, $address) = ( lc $1, lc $2, lc $3);
        print "($hostname, $atype, $address)\n" if ($opt_debug > 2);

        if ( $atype =~ m!^A$!soig) {
            $IPS{$hostname} = $address;
        } elsif ( $atype =~ m!^(A|CNAME)$!soig) {
            $CNAMES{$hostname} = $address;
        }
    }
}

#--------------------------------------------------------------------------------------
#
foreach my $key ( sort keys %IPS ) {

    print "IP KEY == $key\n" if ($opt_debug > 3);

    print "===========================\n" if ($opt_debug > 3);
    print "$IPS{$key} $key\n";

    foreach my $ckey ( sort keys %CNAMES ) {
        # print "( $ckey eq $key )\n";
        if ( $CNAMES{$ckey} eq $key ) {
            print "$IPS{$key} $ckey\n";
        }
    }
}