连接失败 :IO::Socket::INET: connect: timeout 出现在 Perl 中. [英] Connect failed :IO::Socket::INET: connect: timeout is showing up in Perl .

问题描述

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

I have wriiten this script to send mail through gmail smtp to my gmail account . It is not working and giving the already mentioned error ?

use Net::SMTP::TLS;  

my $mailer = new Net::SMTP::TLS(  
    'smtp.gmail.com',  
    Hello   =>      'smtp.gmail.com',  
    Port    =>      587,  
    User    =>      '[e-mail]',  
    Password=>      'xxxxxx');  

$mailer->mail('[e-mail]');  

$mailer->to('[e-mail]');  

$mailer->data;  

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

$mailer->dataend;  

$mailer->quit;  

推荐答案

试试这个:

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 => '[e-mail]',
    password => 'xxxxxx'
);

my $message = Email::Simple->create(
    header => [
        From           => '[e-mail]',
        To             => '[e-mail]',
        Subject        => 'Sent from perl!',
    ],
    body => 'Sent from perl!',
);

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

这篇关于连接失败 :IO::Socket::INET: connect: timeout 出现在 Perl 中.的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！