Perl電子メール機能Mime :: Lite

Question

Im Perlプログラミングにはかなり新しいです。私はMIMEを使用して基本的なSMTPの助けが必要::ライト、私はすでにライブラリをダウンロードして、フォルダに入れます。

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 

が、私はここで何かをしないのです： は、ここで私はのエラーを取得しています

#!/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"; 

私のコードですか？私はチュートリアルを見て、彼らのために働いています。

Answer 1

皆様のご助言ありがとうございます。ですから、Mime :: liteがそれほど良くないので、私はNet :: SMTPへのアプローチを変更しました。私のコードは、将来の参照のために以下にあります。

私はGoogleで動作させることができませんでしたが、私たちの独自の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;