如何在Perl中向多个收件人发送邮件？

Question

我必须使用Perl向多个收件人发送邮件。我只能使用Net::SMTP发送邮件。

我必须从管道分离文件中读取和发送邮件地址。文件格式如下：

abc@gmail.com|pqr@yahoo.com,xyz@gmail.com

我已阅读该行并将其拆分为管道。然后我存储到$mailT

我尝试使用

smtp->recipient($mailT)

和

smtp->datasend("To: $mailT ");

但这不起作用。

它给出错误：

Issue RCTP to in the command

Answer 1

Net::SMTP：

  

recipient ( ADDRESS [, ADDRESS, [...]] [, OPTIONS ] )

     

通知服务器当前消息应发送到给定的所有地址。每个地址都作为单独的命令发送到服务器。如果发送任何地址导致失败，则中止该过程并返回错误值。用户可以根据需要调用重置。

我无法识别代码集$mailT的方式，但是 recipient的参数必须在数组或列表中。 如果这是一个以逗号分隔的标量，那么这可能是个问题。