list named A & CNAME records

gistfile1.sh

perl -MFile::Basename '-F/\t/' -ane 'if ($F[3] =~ /^(A|CNAME)$/) { my $d = $F[0] . "." . (fileparse($ARGV, ".db"))[0]; $d =~ s/^.*\.\.//; print "$d\t$F[4]" unless $F[4] =~ /\b127\.0\.0\.1\b/ }' /var/named/*.db

named-list.pl

#!/usr/bin/perl
use File::Basename;
LINE: while (defined($_ = <ARGV>)) {
    our(@F) = split(/\t/, $_, 0);
    if ($F[3] =~ /^(A|CNAME)$/) {
        my $d = $F[0] . '.' . (fileparse($ARGV, '.db'))[0];
        $d =~ s/^.*\.\.//;
        print "$d\t$F[4]" unless $F[4] =~ /\b127\.0\.0\.1\b/;
    }
}