向多个收件人发送电子邮件

我已将一些旧代码从旧的 unix 盒子移至新的 unix 盒子，并且我在使用 perl 脚本向多个收件人发送电子邮件时遇到了一些困难。它适用于旧盒子。

旧盒子 perl：为 PA-RISC2.0 构建的版本 5.004_04

新框 perl：为 IA64.ARCHREV_0-thread-multi-LP64 构建的 v5.8.8

这是脚本的基础知识（精简）：

use Net::SMTP::Multipart;
$to = "sam\@bogus.com tom\@foo.com";
$smtp = Net::SMTP::Multipart->new($smtpserver);
$smtp->Header(To    =>  $to,
      From  =>  "junk\@junk.com",
      Subj  =>  "This is a test.");
$smtp->Text("Hello, world!\n");
$smtp->End();

如果我将其更改为，这会起作用$to = "justOneEmail\@address.com"，但如果我有两个或更多电子邮件地址（用空格分隔），则它不再起作用。我没有收到错误消息，但也没有显示任何消息。

有什么想法吗？

Do it 像这样 http://search.cpan.org/~orien/Net-SMTP-Multipart-1.5.4/Multipart.pm#EXAMPLES:

use Net::SMTP::Multipart;
$to1 = "sam\@bogus.com"; 
$to2 = '[email protected] /cdn-cgi/l/email-protection';
$smtp = Net::SMTP::Multipart->new($smtpserver);
$smtp->Header(To    =>  [ $to1, $to2, '[email protected] /cdn-cgi/l/email-protection' ],
              From  =>  "junk\@junk.com",
              Subj  =>  "This is a test.");
$smtp->Text("Hello, world!\n");
$smtp->End();

请注意，如果使用双引号，则应该转义电子邮件地址中的 @，否则 Perl 可能会尝试将其解释为数组插值。