show-record.pl

#!/usr/bin/perl
 
#
# gibt zu den in "domainlist.txt" angebenen Domains(eine pro Zeile) den zugehoerigen A- und MX-Record aus
#
 
use strict;
use Net::DNS;
 
my $res = Net::DNS::Resolver->new;
 
open(LISTE,"<domainlist.txt") || die("Konnte die Datei nicht oeffnen!");
while(<LISTE>) {
  chop;
  my $domain = $_;
  my $query = $res->search($domain);
  my @mx = mx($res, $domain);
  print "---------------------------------------------\n";
  print "Domain: $domain\n";
  if ($query) {
    foreach my $rr ($query->answer) {
      next unless $rr->type eq "A";
      print "A:  " . $rr->address, "\n";
    }  
  } else {
    warn "query failed: ", $res->errorstring, "\n";
  }
 
  if (@mx) {
    foreach my $rr (@mx) {
      print "MX: " . $rr->preference, " ", $rr->exchange, "\n";
    }
  } else {
    warn "Can't find MX records for $domain: ", $res->errorstring, "\n";
  }
}
close(LISTE);

und die Domainliste sieht z.B. so aus:

heise.de
schnurr.de
bla.de