Re: [PROGRAMMERING] [Perl] Net::DNS - TXT record

[Michael Rasmussen <sslug@sslug>]

On Wed, 08 Jun 2005 23:02:15 +0200, Michael Rasmussen wrote:

> 
> my $res = Net::DNS::Resolver->new;
> my $query = $res->query("w0.dk", "TXT"); if ($query) {
>     foreach $rr (grep { $_->type eq 'TXT' } $query->answer) {
>     	print Dumper($rr);
>         print $rr->rdata . "\n";
>     }
> } else {
>     warn "query failed: ", $res->errorstring, "\n";
> }
Glemte helt løsningen:-)

Det du sikkert er ude efter:
#!/usr/bin/perl
use Net::DNS;

my $res = Net::DNS::Resolver->new;
my $query = $res->query("w0.dk", "TXT");
if ($query) {
    foreach $rr (grep { $_->type eq 'TXT' } $query->answer) {
        my @info = $rr->char_str_list;
        while (my $txt = pop @info) {
            print $txt . "\n";
        }
    }
} else {
    warn "query failed: ", $res->errorstring, "\n";
}

-- 
Hilsen/Regards
Michael Rasmussen
http://keyserver.veridis.com:11371/pks/lookup?op=get&search=0xE3E80917