Connect failed :IO::Socket::INET: connect: timeout 出现在 Perl 中。答案

【问题标题】：Connect failed :IO::Socket::INET: connect: timeout is showing up in Perl .Connect failed :IO::Socket::INET: connect: timeout 出现在 Perl 中。
【发布时间】：2012-03-08 17:37:17
【问题描述】：

我编写了这个脚本，通过 gmail smtp 将邮件发送到我的 gmail 帐户。它不起作用并给出已经提到的错误？

use Net::SMTP::TLS;  

my $mailer = new Net::SMTP::TLS(  
    'smtp.gmail.com',  
    Hello   =>      'smtp.gmail.com',  
    Port    =>      587,  
    User    =>      'cetranger@gmail.com',  
    Password=>      'xxxxxx');  

$mailer->mail('cetranger@gmail.com');  

$mailer->to('cetranger@gmail.com');  

$mailer->data;  

$mailer->datasend("Sent from perl!");  

$mailer->dataend;  

$mailer->quit;

【问题讨论】：

标签： perl scripting

【解决方案1】：

试试这个：

use strict;
use warnings;

use Email::Simple;
use Email::Sender::Simple qw(sendmail);
use Email::Sender::Transport::SMTP::TLS;

my $transport = Email::Sender::Transport::SMTP::TLS->new(
    host     => 'smtp.gmail.com',
    port     => 587,
    username => 'cetranger@gmail.com',
    password => 'xxxxxx'
);

my $message = Email::Simple->create(
    header => [
        From           => 'cetranger@gmail.com',
        To             => 'cetranger@gmail.com',
        Subject        => 'Sent from perl!',
    ],
    body => 'Sent from perl!',
);

sendmail( $message, {transport => $transport} );

【讨论】：

【解决方案2】：

这个脚本实际上应该可以工作（我用自己的gmail帐户测试成功）。

我怀疑您中间有一些防火墙阻止您连接到 gmail。你能从你的主人那里试试telnet smtp.gmail.com 587。你应该有这样的东西：

host$ telnet smtp.gmail.com 587
Trying 173.194.67.108...
Connected to gmail-smtp-msa.l.google.com.
Escape character is '^]'.
220 mx.google.com ESMTP da8sm6658151wib.6

如果您没有最后 3 行，这意味着您无法直接连接到 gmail 服务器。然后检查您自己的防火墙设置（如果有）。

【讨论】：