Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

MX Lookups

by Anonymous Monk
on Jun 10, 2002 at 19:38 UTC ( #173274=perlquestion: print w/replies, xml ) Need Help??
Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi, I'm a little stuck, just how do you lookup MX records using perl? Plain DNS lookups are no problem, but I need something to do dig style lookups..... I'm missing something obvious I know :) Any examples would be very greatfully recived. TIA.

Replies are listed 'Best First'.
Re: MX Lookups
by grinder (Bishop) on Jun 10, 2002 at 20:31 UTC
    If you have Net::DNS lying around this is a snap to write:

    #! /usr/local/bin/perl -w use strict; use Net::DNS; my $dns = new Net::DNS::Resolver; for my $domain( @ARGV ) { my $mx = $dns->query( $domain, 'MX' ); print "$domain\n"; foreach my $rr ($mx->answer) { print "\t", $rr->exchange, ' (', $rr->preference, ")\n"; } } __END__ output: % ./mx (20) (10) (10) (5) (0)

    print@_{sort keys %_},$/if%_=split//,'= & *a?b:e\f/h^h!j+n,o@o;r$s-t%t#u'
Re: MX Lookups
by neilwatson (Priest) on Jun 10, 2002 at 19:59 UTC
Re: MX Lookups
by hakkr (Chaplain) on Jun 11, 2002 at 12:37 UTC
    Cpan module Email::Valid does an Mx lookup and syntax check

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://173274]
Approved by mdillon
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (9)
As of 2016-10-21 17:03 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (289 votes). Check out past polls.