Forum Webscript.Ru

Программирование => Perl => Тема начата: Skif от 03 Июня 2005, 12:51:58

Название: заголовки письма
Отправлено: Skif от 03 Июня 2005, 12:51:58

Имеется необходимость отпарсить заголовки письма. Для этого пользую Email::Simple. Но споткнулся вот на чем.
если например имеет место такой вид заголовка(часть его):

Цитировать

CC: Admin USER

my $mail = Email::Simple->new($text);
@arr_cc = $mail->header("CC");


Вернет такое вот массив
$arr_cc[0] = "Admin"
$arr_cc[1] = ""
$arr_cc[2] = "USER"
$arr_cc[3] = ""

меняем заголовок на:

Цитировать

CC: admin@domain.ua, user@domain.ua

И получаем
$arr_cc[0] = "admin@domain.ua"
$arr_cc[1] = "user@domain.ua"

Я никак не могу запарсить загловки. не могу схватить логику.  Как сделать так что бы для обоих типов заголовком (или недай бог для смешанного) парсило по человечески.
Может другой модуль может сделать это сам?

Название: заголовки письма
Отправлено: NeoNox от 03 Июня 2005, 16:05:49

perldoc MIME::Parser