如何使用Perl中的Email :: Simple向多个电子邮件地址发送电子邮件？

Question

我希望能够在以下位置向多个电子邮件地址发送电子邮件:

my $email = Email::Simple->create(
    header => [
        To      => '"My Name" <myname@something.com>',
        From    => '"Someone1" <some@somewhere.com>',
        Subject => $subject,
    ],
    body => $body
);
sendmail($email, {transport => $transport});

有可能写:

From => '"Someone1" <some@somewhere.com>', '"Someone2" <some2@somewhere.com>'

Answer 1

只需在字符串中使用逗号:

my $email = Email::Simple->create(
    header => [
        To      => join(", ", @people),
        From    => '"Someone1"',
        Subject => $subject,
    ],
    body => $body
);