Perl dns mx lookup

[ju5t]

Perl is niet mijn vakgebied, maar ik heb een script nodig wat de mailserver met de laagste prioriteit kan weergeven. Laat ik voorop stellen dat dit in Perl moet, om dus aan te geven dat andere oplossingen leuk zijn, maar niet bijdragen aan een oplossing :-)

De volgende code geeft nu consequent de fallback server voor webhostingtalk.nl. Maar bij nu.nl pakt deze wel de juiste primaire server.

Iemand een idee wat ik fout doe?

use Net::DNS;

# create a resolver
my $r   = Net::DNS::Resolver->new;

sub mxlookup
{
        my $domain = $_[0];
        my @res;
        my $rr = $r->query($domain, 'MX');

        # if no results have been found, return zero
        if(!$rr)
        {
                # delay delivery, dns failure
                # print $r->errorstring;
                return 0;
                exit;
        }

        # results are found, create a list of mx records
        for my $mx($rr->answer)
        {
                #return $mx->exchange , " " , $mx->preference;
                @res[$mx->preference] = $mx->exchange;
        }

        # sort the records so we can fetch the lowest record
        @res = sort(@res);

        foreach $rmx(@res)
        {
                if(length($rmx) >= 5)
                {
                        # return the proper record
                        return $rmx , "\n";
                }
        }
}

print &mxlookup('webhostingtalk.nl');

[systemdeveloper]

Probeer dit eens:

use Net::DNS;
my $res = Net::DNS::Resolver->new;
my  @mx = mx($res, "webhostingtalk.nl");
print @mx[0]->exchange;

Foutafhandeling of even checken of @mx > 0 is, kun je zelf wel

De @mx is overigens al gesorteerd op prioriteit.

[ju5t]

Thanks, dat checken gaat wel lukken :-)