Perl 如何将电子邮件地址拆分为；在qw中

在上面的代码中，域是我的公司名称，各个团队成员收到的电子邮件没有任何问题，但他们无法在同一线程中回复，因为电子邮件地址组合在一起，如图所示：mike@domain.com john@domain.com ken@domain.com rajah@domain.com“，而不是"mike@domain.com; john@domain.com; ken@domain.com; rajah@domain.com"

我将TeamRecipients修改为

my @TeamRecipients = qw(
   mike@domain.com
   john@domain.com
   ken@domain.com
   rajah@domain.com
);



sub sendEmailToTeam
{
   my ($title, $msg) = @_;

   my $email = new Common::Email(
    'Sender' => 'rajah@domain.com',
    'To' => \@TeamRecipients,
    'Subject' => $title,
    'Message' => $msg
   );    

   if (not $ENV{'NIGHTLY_RUN_DEBUG_MODE'})
   {
      $email->send();
   }
}

但它不起作用。团队成员也没有收到最初的电子邮件

我还介绍了一个中间数组，如bellow

my @TeamRecipients = qw(
   mike@domain.com;
   john@domain.com;
   ken@domain.com;
   rajah@domain.com;
);

但它也不起作用

专家们

有什么解决办法吗

谢谢， 拉贾

使用：

---

顺便说一句，

split

用于从文本字符串创建数组；您已经有了一个数组，但需要使用文本字符串将其连接起来。值得一提的是，在邮件标题中分隔电子邮件地址的标准字符是逗号，而不是分号。（我相信Outlook UI将其显示为分号，但它仍然正确地使用了逗号。）听起来您的Common:：Email有问题。如果

Common:：Email

（不是在CPAN上，自制的？）需要数组引用，您必须执行

“to”=>[加入…][/code>，谢谢您的提示。但不幸的是，没有一个解决我的问题。”“没有一个解决我的问题”的信息不足以诊断问题。您没有包含有关模块的信息
Common:：Email
，因此我们无法添加任何其他信息。
my @MyTeamRecipients = map { split(/;/, $_)} @TeamRecipients;

    'To' => join(';', @TeamRecipients),