using Net::DNS::Async

goose722 has asked for the wisdom of the Perl Monks concerning the following question:

Hi, I'm trying to use Net::DNS::Async to query several nameservers with one hostname simultaneously. I then want to compare the results. However, I can't figure out how to make a new Net::DNS::Async object that will use the specific nameservers I want to use. What I did initially was follow the rules from Net::DNS:

my $res = new Net::DNS::Async(...);
$res->nameserver(qw(server1 server2 server3));
[download]

This returns an error - the Net::DNS::Async object does not have a nameserver method. What do I do?

Comment on using Net::DNS::Async Download Code

Replies are listed 'Best First'.
Re: using Net::DNS::Async by Riales (Hermit) on Feb 28, 2012 at 21:33 UTC
I've never used this module before, but I dug briefly through the source and it looks like you can specify nameservers by passing it in within a hash in the `add` method. The documentation says to pass it a callback there, but if you give it a hashref instead, it will set nameservers according to whatever you specify. Maybe something like this: `my $res = new Net::DNS::Async(..); $res->add( { Nameserver => [$server1], Callback => \&callback, }, @params );` [download]	[reply] [d/l] [select]
Re^2: using Net::DNS::Async by goose722 (Initiate) on Feb 29, 2012 at 18:13 UTC
Can I ask for the link to the documentation you were looking at? Thanks a lot, by the way.	[reply]
Re^3: using Net::DNS::Async by Riales (Hermit) on Feb 29, 2012 at 18:23 UTC
Sure: Net::DNS::Async Also, here's the relevant code snippet from the module: `sub add { my ($self, $params, @query) = @_; my ($callback, @ns); if (ref($params) eq 'HASH') { @query = @{ $params->{Query} } if exists $params->{Query}; $callback = $params->{Callback}; @ns = @{ $params->{Nameservers} } if exists $params->{Nameserv +ers}; } else { $callback = $params; } (...) }` [download]	[reply] [d/l]