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
No Comments