求问 在线等

harlicenven

sub getsmtpconnection
{
        my ($to_address)= @_;
       
        $log->debug("getting smtp connection for:", $to_address);
       
        my $to_server= substr($to_address, rindex($to_address,'@')+1);
       
        my @mxs= mx($resolver, $to_server);
        if( $mxs[0])
        {
                foreach my $mx_server(@mxs)
                {
                        my $smtp_server= $mx_server->exchange;
                        $log->debug("connecting with server:", $smtp_server);
                        my $smtp_connection = Net::SMTP->new($smtp_server,Hello =>'bainbridge.demarc.cogentco.com', Debug => $debug, Timeout => 60) or warn "can't connect with server:",$smtp_server;
                        if( $smtp_connection)
                        {
                                $log->debug("connected with smtp server:", $smtp_server);
                                return $smtp_connection, $smtp_server;
                        }
                }
               
                $log->error("can't connect with any mail server");
        }
        else
        {
                $log->error("no mx server available:", $to_server);
        }
        return;
}

my @mxs= mx($resolver, $to_server); 这里的mx 函数 是干什么用的啊?

兰花仙子

你这是断章取义嘛，没有内置的这个函数。
my @mxs= mx($resolver, $to_server);
从用法看，显然该函数是在查某个域的MX服务器了。