The OpenNET Project / Index page

[ новости /+++ | форум | wiki | теги | ]

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"Perl и Mail::DeliveryStatus::BounceParser"
Вариант для распечатки  
Пред. тема | След. тема 
Форумы Программирование под UNIX (Public)
Изначальное сообщение [Проследить за развитием треда]

"Perl и Mail::DeliveryStatus::BounceParser"  
Сообщение от SubGun email(??) 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 email(??) 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 email(ok) on 16-Июл-07, 18:21 
все еще нужна помощь. please
Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить

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




Спонсоры:
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2021 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру