vit has asked for the wisdom of the Perl Monks concerning the following question:
for domain yahoo.com I am getting 3 records:use strict; use Data::Dumper; ######################################### die "INPUT: domain:\n" if (@ARGV != 1); my $domain = $ARGV[0]; ######################################### # Use your own resolver object. use Net::DNS; my $res = Net::DNS::Resolver->new; my @mx = mx($res, $domain); print Dumper (@mx);
'exchange' => 'mta7.am0.yahoodns.net' 'exchange' => 'mta5.am0.yahoodns.net' 'exchange' => 'mta6.am0.yahoodns.net'
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: exchange in Net::DNS
by Anonymous Monk on Oct 10, 2011 at 14:35 UTC | |
by vit (Friar) on Oct 10, 2011 at 14:57 UTC | |
by Anonymous Monk on Oct 10, 2011 at 15:09 UTC |