连接失败 :IO::Socket::INET: connect: timeout 出现在 Perl 中. [英] Connect failed :IO::Socket::INET: connect: timeout is showing up in Perl .
本文介绍了连接失败 :IO::Socket::INET: connect: timeout 出现在 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 => '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;
推荐答案
试试这个:
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} );
这篇关于连接失败 :IO::Socket::INET: connect: timeout 出现在 Perl 中.的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文