Perl的错误消息，也许你忘了装载

Question

我有一个使用Mail::Sender第一Perl程序：

#!/usr/bin/perl 

use warnings; 

use Getopt::Long; 

use autodie; # die if problem reading or writing a file 

use Mail::Sender; 

my $av_tmp_SENDER = Mail::Sender->new({ 
    from => 'absender@absender.de', 
    to  => 'empf@empf.de', 
    subject => 'Funktionstest', 
}); 

$av_tmp_SENDER->MailMsg({ 
    to  => 'empf@empf.de', 
    subject => 'Funktionstest', 
    msg  => "noch ein bisschen text" 
}); 

print "Die e-Mail wurde verschickt"; # The email was sent 

然后我收到此错误信息：

Can't locate object method "MailMsg" via package "-1" (perhaps you forgot to load "-1"?) at ./av_perl_02.pl line 

是否有人可以给初学者的提示？！

Answer 1

您需要检查什么Mail::Sender->new返回是有效的。在这种情况下，它返回-1。然后，当您尝试对值为-1的变量调用MailMsg时，Perl会将该值解释为类（包）名称，并假定您的意思是调用该类上的方法。

的一个好方法，以测试一个构造函数的返回值与ref功能：

my $av_tmp_SENDER = Mail::Sender->new(...) 
if (ref($av_tmp_SENDER) eq 'Mail::Sender') { 
    # Use the new object 
} 
else { 
    # Print a message 
} 

当然，该模块的文档可以指示其它的检查。例如，这是什么意思，它返回-1而不是undef或0？

Answer 2

...并欢迎堆栈溢出，并与Perl

对不起，如果反对者把你赶走，但最终他们是正确的，Stack Overflow是一个英文网站

的问题在于，当您创建Mail::Server对象时，您没有指定SMTP服务器。大多数互联网服务提供商给你访问到他们的SMTP服务器作为交易

的一部分，如果你不知道你的SMTP服务器的URL，那么你应该检查线路或呼叫支持中心，了解它是什么。你可能还需要提供用户名和密码

你需要检查他们和服务器到new呼叫提供的URL。下面的代码假设您有一个Gmail帐户，并且Google的SMTP服务器位于smtp.gmail.com

此代码将报告任何错误，请致电new或致电MailMsg。错误代码为负数，您可以在Return codes section of the Mail::Sender documentation

#!/usr/bin/perl 

use utf8; 
use strict; 
use warnings 'all'; 

use Mail::Sender; 

my $sender = Mail::Sender->new({ 
    smtp => 'smtp.gmail.com', 
    authid => 'my.email@gmail.com', 
    authpwd => 'Herringbone-pattern-1989', 
}); 

die "Return code $sender" unless ref $sender; 

my $status = $sender->MailMsg({ 
    to  => 'my.friend@gmail.com', 
    from => 'my.email@gmail.com', 
    subject => 'Funktionstest', 
    msg  => 'noch ein bisschen text', 
}); 

die "Return code $status" unless ref $status; 

print "Die e-Mail wurde verschickt";