CPAN: Mail::DeliveryStatus::BounceParser

Beitrag lesen

Da kiekste vielleicht wie'n Elch aus der Wäsche, aber damit kann ich deinen Bericht, die besagten Accessoren würden leer zurückliefern, nicht nachvollziehen.

  
use Mail::DeliveryStatus::BounceParser qw();  
my $bounce      = eval {Mail::DeliveryStatus::BounceParser->new([<DATA>]);};  
my $address_ref = [$bounce->addresses];         # ['ab@bc.de']  
my ($report)    = $bounce->reports;  
$report->get('email');                          # 'ab@bc.de'  
$report->get('std_reason');                     # 'unknown'  
  
__DATA__  
Received: (qmail etc. etc.