Perl脚本通过sendmail发送邮件非常慢 – 每30秒一封邮件
我有一个Perl邮件发送邮件列表的脚本。 在我的旧专用服务器上,它运行良好,基本上每秒发送一封电子邮件。 我最近换了一个新的专用服务器,大概有相同的规格,而且速度非常慢,每30秒就有一封邮件。 我build立了一个testing脚本来观察哪个部分最长: open(MAIL,"| /usr/sbin/sendmail -tv -d8.7 $recipient_email"); print MAIL <<EOF; From:Test Sender <$sender> To:$recipient_email Subject:Testing Justw ant to see how long this takes EOF close(MAIL); -d8.7有一个debugging选项,可以让我观看脚本的输出。 我将在这里粘贴,有3个点都挂了太久,我会在这里标记他们: dns_getcanonname(receiving_server.com, trymx=1) dns_getcanonname: trying receiving_server.com. (A) 这里5秒延迟是 dns_getcanonname: receiving_server.com getmxrr([127.0.0.1], droplocalhost=1) andrew@receiving_server.com… Connecting to [127.0.0.1] via relay… 220 my_server.com ESMTP Sendmail 8.13.8/8.13.8; Fri, 18 May 2012 […]