Исходное сообщение
"Perl и Mail::DeliveryStatus::BounceParser" Отправлено SubGun, 08-Фев-07 12:36
Проблема решена: use Mail::DeliveryStatus::BounceParser;   # $message is \*io or $fh or "entire\nmessage" or \@lines my $bounce = eval { Mail::DeliveryStatus::BounceParser->new(\*STDIN ); }; # if ($@) {     # couldn't parse. #  } my @addresses       = $bounce->addresses;       # email address strings my @reports         = $bounce->reports;         # Mail::Header objects my $orig_message_id = $bounce->orig_message_id; # <ABCD.1234@mx.example.com> my $orig_message    = $bounce->orig_message;    # Mail::Internet object print @addresses; Затем # perl test.pl < bounce.file

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> Проблема решена: > [code]use Mail::DeliveryStatus::BounceParser; > # $message is \*io or $fh or "entire\nmessage" or \@lines > my $bounce = eval { Mail::DeliveryStatus::BounceParser->new(\*STDIN ); }; > # if ($@) { > # couldn't parse. > # } > my @addresses = $bounce->addresses; > # email address strings > my @reports = $bounce->reports; > # Mail::Header objects > my $orig_message_id = $bounce->orig_message_id; # <ABCD.1234@mx.example.com> > my $orig_message = $bounce->orig_message; # Mail::Internet > object > print @addresses;[/code] > Затем > [code]# perl test.pl < bounce.file[/code]
	Введите код, изображенный на картинке: