in reply to using Net::DNS::Async

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]

Replies are listed 'Best First'.
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]

      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]

In Section Seekers of Perl Wisdom