Tie::DNS ist ein praktisches Modul, um sehr einfach und komfortabel DNS-Abfragen zu tätigen: Man braucht nur noch auf einen Hash zugreifen und hat schon die passenden Daten parat.
tie my %test, "Tie::DNS";
say "Test.de: $test{'test.de'}";
say "Perl-Blog: $test{'www.perl-blog.de'}"; Leider ist es bisher nicht möglich, einen anderen Nameserver als den Standard-Nameserver vom System anzugeben oder andere Parameter vom Net::DNS::Resolver zu ändern. Ein kleiner Patch – auch an Maintainer Dana M. Diederich geschickt – behebt das Problem. Dann kann man auch Nameserver angeben:
tie my %test, "Tie::DNS", { resolver_args => { nameservers => ['127.0.0.1'] } };;
say "Test Lokal: $test{'test.local'}";
say "intern: $test{'intern.intern'}";
tie-dns-patch-resolver_args.diff
Ein Link auf Tie::DNS wäre auch noch hilfreich gewesen… :-)
Übrigens ist ein Link auf die /perldoc-Query for search.cpan.org auch besser als einer direkt auf die generierte HTML-Datei einer bestimmten Version. Der bleibt nämlich aktuell. Am bequemsten ist es, einfach den »Permalink« oben rechts auf so einer Seite zu copypasten.
Ups, der Link war geplant, aber habe ich wohl vergessen ;-) – ist nachgetragen!
Der Link auf dist/... sollte eigentlich auch permanent sein, den Permalink-Link oben rechts habe ich ehrlich gesagt immer übersehen. Letztendlich sollte beides funktionieren, aber das „offizielle“ ist sicherlich besser.
Ah, richtig, ich habe nur flüchtig hingesehen und dachte, du hättest eine der URLs mit Autor und Version verwendet. Sorry.