DNS opslag

use Net::DNS;
  my $res  = Net::DNS::Resolver->new;
  my $query = $res->search("host.example.com");
 

  if ($query) {
      foreach my $rr ($query->answer) {
          next unless $rr->type eq "A";
          print $rr->address, "\n";
      }
  } else {
      warn "query failed: ", $res->errorstring, "\n";
  }

Can't locate Net/DNS.pm in @INC (@INC contains: /usr/lib/perl5/5.00503/i386-linux /usr/lib/perl5/5.00503 /usr/l
ib/perl5/site_perl/5.005/i386-linux /usr/lib/perl5/site_perl/5.005 .) at dns.pl line 1.
BEGIN failed--compilation aborted at dns.pl line 1.

ah - ja du skal huske at installere Net::DNS

Og det gøres hvordan?

under unix:

perl -MCPAN -e 'install New::DNS'

ellers henter du den på

http://mirrors.sunsite.dk/cpan/authors/id/C/CR/CREIN/Net-DNS-0.42.tar.gz

og laver

perl Makefile.PL
make
make test
make install

perl -MCPAN -e 'install New::DNS'
virker ikke

http://mirrors.sunsite.dk/cpan/authors/id/C/CR/CREIN/Net-DNS-0.42.tar.gz downloaded, kørt
gunzip Net-DNS-0.42.tar.gz
forsøgt
tar -x Net-DNS-0.42.tar.gz
Men den bliver ikke færdig med dette???

perl -MCPAN -e 'install New::DNS'  skulle være
perl -MCPAN -e 'install Net::DNS'

prøv med

tar zxf Net-DNS-0.42.tar.gz  (hvis det stadig er en gzip.tar fil)

ellers

tar xf Net-DNS-0.42.tar.gz

så virkede det med perl -MCPAN -e 'install Net::DNS'

Hvilken navneserver spørger den?

jeg gætter på at den bruger dine opsætninger i /etc/resolv.conf - du kan bruge perldoc Net::DNS der var vist et eksempel  på hovrdan du kunne specificere en navneserver den skulle spørge.