форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Perl и Mail::DeliveryStatus::BounceParser"

Сообщение от SubGun (??) on 07-Фев-07, 18:56

Пытаюсь отдать на парсинг письмо, но не могу понять, как это сделать. Установил модуль Mail::DeliveryStatus::BounceParser(http://search.cpan.org/~rjbs/Mail-DeliveryStatus-BounceParser-1.517/lib/Mail/DeliveryStatus/BounceParser.pm), дальше, судя по всему($message is \*io or $fh or "entire\nmessage" or \@lines), мне нужно передать в $message идентификатор файла. use Mail::DeliveryStatus::BounceParser; open(FH,">file");   # $message is \*io or $fh or "entire\nmessage" or \@lines   my $bounce = eval { Mail::DeliveryStatus::BounceParser->new($message); };   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 close(FH); Я что-то не так понимаю? Как это сделать? Подскажите, пожалуйста.

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Сообщения по теме

[Сортировка по времени, UBB]

1. "Perl и Mail::DeliveryStatus::BounceParser"

Сообщение от SubGun (??) on 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

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

2. "Perl и Mail::DeliveryStatus::BounceParser"

Сообщение от SubGun (ok) on 16-Июл-07, 18:21

все еще нужна помощь. please

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить	Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]