как отправить SMTP-адрес электронной почты в perl

Question

Ниже я пишу, чтобы отправить электронное письмо с моего почтового хоста на мой индивидуальный адрес электронной почты и ошибку, которую я получаю.

Может кто-то пожалуйста, помогите мне, почему мы получаем ошибку:

Can't call method "mail" on an undefined value at cmm_ping.pl line 2.

use Net::SMTP; 
$smtp->mail("jo-sched@abcd.com"); 
$smtp->recipient("Myname@XXX-XXXX.com"); 
$smtp->datasend("From: jo-sched@abcd.com"); 
$smtp->datasend("To: Myname@xxxx-xxxxxx.com"); 
$smtp->datasend("Subject: This is a test"); 
$smtp->datasend("\n"); 
$smtp->datasend("This is a test"); 
$smtp->dataend; 
$smtp->quit; 

Answer 1

переменная $smtp еще не определена. Взгляните на usage examples of Net::SMTP. Этот пример в значительной степени делает то, что должен делать ваш код:

use Net::SMTP; 

$smtp = Net::SMTP->new('mailhost'); 

$smtp->mail($ENV{USER}); 
$smtp->to('postmaster'); 

$smtp->data(); 
$smtp->datasend("To: postmaster\n"); 
$smtp->datasend("\n"); 
$smtp->datasend("A simple test message\n"); 
$smtp->dataend(); 

$smtp->quit; 

Answer 2

Вы знакомы с тем, как работает Object Oriented Perl?

Для использования объектно-ориентированного модуля Perl вы должны сначала создать объект этого типа класса. Как правило, это делается с помощью метода new:

my $smtp = Net::SMTP->new($mailhost); 

Теперь $smtp является объект класса Net::SMTP. В принципе, это ссылка на глобус, где вы можете хранить свою структуру данных (кто вы отправляете, ваше сообщение и т. Д.). Затем Perl может использовать эту информацию во время вызовов методов (которые являются только подпрограммами, входящими в пакет Net :: SMTP).

Вот пример из программы я написал:

use Net::SMTP; 

my $smtp = Net::SMTP->new(
    Host => $watch->Smtp_Host, 
    Debug => $debug_level, 
); 

if (not defined $smtp) { 
    croak qq(Unable to connect to mailhost "@{[$watch->Smtp_Host]}"); 
} 

if ($smtp_user) { 
    $smtp->auth($watch->Smtp_User, $watch->Smtp_Password) 
     or croak 
     qq(Unable to connect to mailhost "@{[$watch->Smtp_Host]}") 
     . qq(as user "@{[$watch->Smtp_User]}"); 
} 

if (not $smtp->mail($watch->Sender)) { 
    carp qq(Cannot send as user "@{[$watch->Sender]}") 
     . qq(on mailhost "@{[$watch->Smtp_Host]}"); 
    next; 
} 
if (not $smtp->to($email)) { 
    $smtp->reset; 
    next; #Can't send email to this address. Skip it 
} 

# 
# Prepare Message 
# 
# In Net::SMTP, the Subject and the To fields are actually part 
# of the message with a separate blank line separating the 
# actual message from the header. 
# 
my $message = $watch->Munge_Message($watcher, $email); 
my $subject = 
    $watch->Munge_Message($watcher, $email, $watch->Subject); 

$message = "To: $email\n" . "Subject: $subject\n\n" . $message; 

$smtp->data; 
$smtp->datasend("$message"); 
$smtp->dataend; 
$smtp->quit;