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.

Comment on MX Lookups
Re: MX Lookups
by neilwatson (Curate) on Jun 10, 2002 at 19:59 UTC
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 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 rifling through the Monastery: (15)
As of 2015-04-28 13:01 GMT
Find Nodes?
    Voting Booth?

    Who makes your decisions?

    Results (520 votes), past polls