Perl電子郵件功能Mime :: Lite

Question

對於Perl編程來說，我還算陌生。我在使用MIME :: Lite的基本SMTP上需要幫助，我已經下載了該庫並將其放在該文件夾中。 這裏是我的代碼

#!/usr/bin/perl 

use MIME::Lite; 
use Net::SMTP; 

$to = 'sample@gmail.com'; 
$cc = 'sample@gmail.com'; 
$from = 'sample@gmail.com'; 
$pass = "my password here"; 
$subject = 'Test Email'; 
$message = 'This is test email sent by Perl Script'; 

$msg = MIME::Lite->new(
       From  => $from, 
       To  => $to, 
       Cc  => $cc, 
       Subject => $subject, 
       Data  => $message 
       ); 

# MIME::Lite->send('smtp', "smtp.gmail.com"); 
MIME::Lite->send('smtp', "smtp.gmail.com", Timeout=>60,Auth=>'LOGIN',AuthUser=>$from,AuthPass=>$pass,Port => 465, Debug => 1); 
$msg->send; 
print "Email Sent Successfully\n"; 

我得到的錯誤：

MIME::LITE::SMTP>>> MIME::LITE::SMTP 
MIME::LITE::SMTP>>> NET::SMTP(3.10) 
MIME::LITE::SMTP>>> NET::CMD(3.10) 
MIME::LITE::SMTP>>> EXPORTER(5.72) 
MIME::LITE::SMTP>>> IO::SOCKET::IP(0.39) 
MIME::LITE::SMTP>>> IO::SOCKET(1.38) 
MIME::LITE::SMTP>>> IO::HANDLE(1.36) 
MIME::LITE::SMTP>>> NET::CMD::GETLINE(): UNEXPECTED EOF ON COMMAND CHANNEL: AT C:/STRAWBERRY/PERL/LIBE/MIME/LITE.PM LINE 2622 AT MAIN.PL LINE 23 
SMTP FAILED TO CONNECT TO MAIL SERVER: BAD FILE DESCRIPTOR AT LINE 23 

我失去了一些東西在這裏？我看到了教程，它正在爲他們工作。

Answer 1

感謝大家的建議。因此，由於Mime :: lite不太好，我改變了我的方法到Net :: SMTP。以下是我的代碼，供將來參考。

另外請注意，我無法使它適用於谷歌，但我們自己的smtp服務器正常工作的代碼。

#!perl 
use warnings; 
use strict; 
use Net::SMTP; 

my $smtpserver = 'mail server'; 
my $smtpport = 'port' ; 
my $smtpuser = 'sender@sample.com'; 
my $smtppassword = 'my password'; 


my $smtp = Net::SMTP->new($smtpserver, Port=>$smtpport, Timeout => 60, Debug => 1); 
die "Could not connect to server!\n" unless $smtp; 

$smtp->auth($smtpuser, $smtppassword); 
$smtp->mail('sender@sample.com'); 
$smtp->to('receiver@sample.com'); 

$smtp->data(); 
$smtp->datasend("To: receiver name <receiver\@sample.com>\n"); 
$smtp->datasend("From: sender name <sender\@sample.com>\n"); 
$smtp->datasend("subject: THIS IS A SUBJECT\n"); 
$smtp->datasend("\n"); 
$smtp->datasend("A simple test message\n"); 

$smtp->quit;