perl - 在 Perl 中使用 Email::Sender 发送电子邮件失败

Question

我正在用 Perl 编写一个程序，它会向收件人列表发送一封电子邮件。完成后，我想打印所有收件人的列表以及他们是否收到电子邮件，如下所示： - email@email.com 是 - email2@email.com 错误等等。

我写了下面的代码，它可以工作，如果交付失败，将电子邮件和电子邮件发送给发件人，但我不知道如何打印列表？

use Email::Simple::Creator; # or other Email:: 
while (<lista_direcciones>) {
    #En $_ está cada una de las direcciones

my $message = Email::Simple->create(
    header => [
        From    => $dir_origen,
        To      => $_,
        Subject => $asunto,
    ],
    body => $contenido,
);

try {       
    sendmail($message, { transport => $transport });
} catch {
    warn "Sending failed: $_";
};      
}

提前致谢！

Answer 1

只需将它们放入哈希中并保存结果即可。之后，遍历该哈希并打印结果。

my %addresses;

while (<lista_direcciones>) {

  #En $_ está cada una de las direcciones

  my $message = Email::Simple->create(
    header => [
      From    => $dir_origen,
      To      => $_,
      Subject => $asunto,
    ],
    body => $contenido,
  );

  try {
    sendmail( $message, { transport => $transport } );
    $addresses{$_} = 1;
  }
  catch {
    $addresses{$_} = 0;
    warn "Sending failed: $_";
  };
}

foreach $to ( keys %addresses ) {
  printf "%s: %s\n", $to, $addresses{$to} ? 'yes' : 'no';
}

或者你可以print在你发送邮件的地方放一个旁边。

try {
  sendmail( $message, { transport => $transport } );
  print "$_ yes\n";
}
catch {
  warn "Sending failed: $_";
  print "$_ no\n";
};