使用的Net :: SMTPS发送电子邮件：使用未初始化值$ _的

Question

我试图发送使用Net::SMTPS和Gmail电子邮件：

#! /usr/bin/env perl 

use feature qw(say); 
use strict; 
use warnings; 

use Net::SMTPS; 

my $smtp = Net::SMTPS->new(
    'smtp.gmail.com', 
    Port => 587, 
    Timeout => 20, 
    Debug => 1, 
    doSSL => 'starttls', 
); 
die "Initialization failed: $!" if !defined $smtp; 

my $sender = my $user = 'hakon.hagland@gmail.com'; 
my $password = '????';  
say "Trying to authenticate.."; 
$smtp->auth($user, $password, 'LOGIN' ) or die "could not authenticate\n"; 

my $receiver = 'hakon.hagland@gmail.com';  
$smtp->mail($sender); 
$smtp->to($receiver); 
$smtp->data(); 
$smtp->datasend("To: $receiver\n"); 
$smtp->datasend("From: $sender\n"); 
$smtp->datasend("Content-Type: text/html\n"); 
$smtp->datasend("Subject: Testing Net::SMTPS"); 
$smtp->datasend("\n"); 
$smtp->datasend('The body of the email'); 
$smtp->dataend(); 
$smtp->quit(); 
say "Done."; 

输出运行此脚本（Ubuntu的16.04，Perl版本5.22.1时）是：

Net::SMTPS>>> Net::SMTPS(0.04) 
Net::SMTPS>>> IO::Socket::INET6(2.72) 
Net::SMTPS>>>  IO::Socket(1.38) 
Net::SMTPS>>>  IO::Handle(1.35) 
Net::SMTPS>>>   Exporter(5.72) 
Net::SMTPS>>> Net::SMTP(3.05) 
Net::SMTPS>>>  Net::Cmd(3.05) 
Net::SMTPS>>>  IO::Socket::IP(0.37) 
Net::SMTPS=GLOB(0x10b2dd8)<<< 220 smtp.gmail.com ESMTP x131sm3965376lff.44 - gsmtp 
Net::SMTPS=GLOB(0x10b2dd8)>>> EHLO localhost.localdomain 
Net::SMTPS=GLOB(0x10b2dd8)<<< 250-smtp.gmail.com at your service, [195.139.193.120] 
Net::SMTPS=GLOB(0x10b2dd8)<<< 250-SIZE 35882577 
Net::SMTPS=GLOB(0x10b2dd8)<<< 250-8BITMIME 
Net::SMTPS=GLOB(0x10b2dd8)<<< 250-STARTTLS 
Net::SMTPS=GLOB(0x10b2dd8)<<< 250-ENHANCEDSTATUSCODES 
Net::SMTPS=GLOB(0x10b2dd8)<<< 250-PIPELINING 
Net::SMTPS=GLOB(0x10b2dd8)<<< 250-CHUNKING 
Net::SMTPS=GLOB(0x10b2dd8)<<< 250 SMTPUTF8 
Net::SMTPS=GLOB(0x10b2dd8)>>> STARTTLS 
Net::SMTPS=GLOB(0x10b2dd8)<<< 220 2.0.0 Ready to start TLS 
Net::SMTPS=GLOB(0x10b2dd8)>>> EHLO localhost.localdomain 
Net::SMTPS=GLOB(0x10b2dd8)<<< 250-smtp.gmail.com at your service, [195.139.193.120] 
Net::SMTPS=GLOB(0x10b2dd8)<<< 250-SIZE 35882577 
Net::SMTPS=GLOB(0x10b2dd8)<<< 250-8BITMIME 
Net::SMTPS=GLOB(0x10b2dd8)<<< 250-AUTH LOGIN PLAIN XOAUTH2 PLAIN-CLIENTTOKEN OAUTHBEARER XOAUTH 
Net::SMTPS=GLOB(0x10b2dd8)<<< 250-ENHANCEDSTATUSCODES 
Net::SMTPS=GLOB(0x10b2dd8)<<< 250-PIPELINING 
Net::SMTPS=GLOB(0x10b2dd8)<<< 250-CHUNKING 
Net::SMTPS=GLOB(0x10b2dd8)<<< 250 SMTPUTF8 
Trying to authenticate.. 
Use of uninitialized value $_ in pattern match (m//) at /usr/share/perl/5.22/Net/Cmd.pm line 250. 
Use of uninitialized value in join or string at /usr/share/perl/5.22/Net/Cmd.pm line 249. 
Net::SMTPS=GLOB(0x10b2dd8)>>> AUTH 
Net::SMTPS=GLOB(0x10b2dd8)<<< 555 5.5.2 Syntax error. x131sm3965376lff.44 - gsmtp 
could not authenticate 

我不知道为什么我得到这个错误：

Use of uninitialized value $_ in pattern match (m//) at /usr/share/perl/5.22/Net/Cmd.pm line 250. 
Use of uninitialized value in join or string at /usr/share/perl/5.22/Net/Cmd.pm line 249. 

尝试进行身份验证时？

Answer 1

请尝试下面的代码。更改用户和密码。
它连接到SMTPS。它似乎在我的linux上工作。
Net :: SMTP需要$ smtp-> starttls（）来执行STARTTLS命令。

#!/usr/local/bin/perl 
use strict; 
use warnings; 
use utf8; 

use Net::SMTP 3.0; 
# Force use of Authen::SASL::Perl - it may fix problems with other alternatives 
use Authen::SASL qw(Perl); 

my $smtp = Net::SMTP->new(
    'smtp.gmail.com', 
    SSL=>1, 
    Timeout => 20, 
    Debug => 1, 
); 
die "Initialization failed: $!" if !defined $smtp; 

my $sender = my $user = 'john.doe@gmail.com'; 
my $password = '????'; 
print "Trying to authenticate.."; 
$smtp->auth($user, $password) or die "could not authenticate\n"; 

my $receiver = 'john.doe@gmail.com'; 
$smtp->mail($sender); 
$smtp->to($receiver); 
$smtp->data(); 
$smtp->datasend("To: $receiver\n"); 
$smtp->datasend("From: $sender\n"); 
$smtp->datasend("Content-Type: text/html\n"); 
$smtp->datasend("Subject: Testing Net::SMTP"); 
$smtp->datasend("\n"); 
$smtp->datasend('The body of the email'); 
$smtp->dataend(); 
$smtp->quit();