Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

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 perl.org perlmonk.org perlmonks.org perl.com perl.org lux.valueclick.com (20) perlmail.valueclick.com (10) perlmonk.org perlmonk.org (10) perlmonks.org mail.egl.net (5) perl.com mail.perl.com (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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (4)
As of 2014-08-02 05:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Who would be the most fun to work for?















    Results (55 votes), past polls