Здравствуйте!
Собственно встала проблема. Нужно написать почтового робота на Perl.
Основные требования такие:
1. Прием писем на определенный адрес.
2. Разбор письма (на head и body) и сохранение вложения на диск.

С п.1 понятно, а вот с п.2 проблема.
Может, кто знает соответствующие модули или готовые скрипты, посоветуйте.

Заранее благодарен.

что значит "Прием писем на определенный адрес." ???

Я имею ввиду, что после получения письма на определенный адрес (например [email protected]) скрипт начинает работать. Другими словами sendmail отсылает письмо на вход данной программы. (Test: "|/usr/home/test.pl"). Скрипт считывает входной поток (из STDIN) и т.д. Вот приблизительно так я представляю.

логично.
А по второму пункту: регекспы(регулярные выражения). В книге О`Рейли "регулярные выражения" описана система разбора письма. Советую купить за 200р и почитать - можная вещь.

Книга это, конечно хорошо. Но, пока найдешь, пока купишь... время уходит.
В принципе, разбор письма без вложения и отправленного простым текстом задача не такая уж и сложная задача. (От начала и до первой пустой строки - заголовок, все остальное -тело) .
Затык в том,что письмо содержит с вложение.

Так с чем имено сложность, опиши!

Как выдернуть вложение, раскодировать и сохранить на диск.

запость пример письма с вложением и то как ты его пытаешься азобрать.

Вот пример письма.

Код

From [email protected]  Mon Aug 16 13:06:54 2004 Received: from localhost.somebody.ru (sr-zgres-001.somebody.ru [10.160.1.2]) From: [email protected] To: [email protected] Subject: Here is the file Date: Mon, 16 Aug 2004 13:06:54 +0400 X-Mailer: Perl script "sen.pl" using Mail::Sender 0.8.10 by Jenda Krynicky, Czechlands running on localhost.somebody.ru (127.0.0.1) under account "sysadm" Message-ID: <[email protected]> MIME-Version: 1.0 Content-type: multipart/mixed; boundary="Message-Boundary-by-Mail-Sender-1092647214" This message is in MIME format. Since your mail reader does not understand this format, some or all of this message may not be legible. --Message-Boundary-by-Mail-Sender-1092647214 Content-type: text/plain; charset="US-ASCII" Content-description: Mail message body Content-transfer-encoding: 7BIT Content-disposition: inline I'm sending you the list you wanted. --Message-Boundary-by-Mail-Sender-1092647214 Content-type: application/octet-stream; name="dbmshs.xls"; type=Unknown; Content-description: dbmshs.xls Content-transfer-encoding: Base64 Content-disposition: attachment; filename="dbmshs.xls" 0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAIQAAAAAAAAAA EAAA/v///wAAAAD+////AAAAACAAAAD///////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////// [color=red]--------- Здесь обрезал -----[/color]bQBtAGEAcgB5AEkAbgBmAG8AcgBtAGEAdABpAG8AbgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA ACgAAgEBAAAAAwAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAA ABAAAAAAAAAFAEQAbwBjAHUAbQBlAG4AdABTAHUAbQBtAGEAcgB5AEkAbgBmAG8AcgBtAGEAdABp AG8AbgAAAAAAAAAAAAAAOAACAf///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAABgAAAAAEAAAAAAAAA== --Message-Boundary-by-Mail-Sender-1092647214--

Все это мне сделал вот такой скрипт.

Код

#!/usr/local/bin/perl my @mail = <STDIN>; open(OUT, ">/usr/home/sysadm/work/SendMessages/out.txt"); print OUT @mail; close(OUT);

А, как разобрать ума не приложу.
может быть так:

Код

$/=''; while(<>) { if ($.==1) { #со второго абзаца push (@body, @_);

а дальше не знаю.

думаю что надо читать файл построчно и искать Content-disposition: attachment;
а затем копировать всё в переменную до строки содержащей --Message-.....

Искать лучше регекспами, примерно так

Код

if ($str=~m/Content-disposition:[ ]+attachment;[ ]+name[ ]*=[ ]*"([^"])")/i) { echo $1; # имя файла }

Добавлено @ 14:13
P.S. Я тоже хотел написать такую программу, что бы она сортировала почту и отправляла мне уведомления на сотовый, но не судьба

Писал для свое фирмы систему обработки возвратов писем после рассылки. Алгоритм (упрощенно), применительно для тебя, может быть такой:
(естественно use POP3Client;)

Код

1. коннектимся к почтовому серваку: my $pop = new POP3Client(USER => "user", PASSWORD => "password", HOST => "pop.mail.ru"); 2. читаем по очереди все письма: for (my $i=1; $i<=$pop->Count(); $i++) { 3. читаем заголовок текущего письма:    foreach my $head ($pop->Head($i)) { 4. ищем имя файла (как написано у Secandr'а):        my $fname = '';        if ($str=~ /Content-disposition:[ ]+attachment;[ ]+name[ ]*=[ ]*"([^"])")/i) {            $fname = $1;            last;        }    } # конец блока foreach my $head ($pop->Head($i)) 5. если имя файла нашли, то читаем тело письма:    my $body = '';    foreach my $line ($pop->Body($i)) { 6. до тех пор, пока не встретим признак конца вложения:        if ($line !~ '--Message-Boundary') {            $body .= $line;        } else {            last;        } 7. раскодируем вложение из Base64 и запишем в файл:        use MIME::Base64;        my $decoded = MIME::Base64::decode($body);        open(FL, $fname);        print FL $decoded;        close FL;    } # конец блока foreach my $line ($pop->Body($i))    $pop->Delete($i); # удалим обработанное письмо } # конец блока for (my $i=1; $i<=$pop->Count(); $i++) 8. закрываем соединение с почтовым сервером: $pop->Close();

Наверное так...

GoodBoy
класный скрипт, повешу себе, пусть разбирает почту с ящика, куда будут сыпаться все уведомления с форумов и с других скриптов.
Добавлено @ 16:18
POP3Client - стандартная библиотека?

Secandr
Это конечно все ОЧЕНЬ упрощенно... У меня так работает робот, который собирает возвраты от мэйл-демонов после проведения рассылки. Потом начинается анализ причин, по которым письмо не доставлено (блин с разных серваков такие перлы приходят... только сообщение о том, что такого пользователя не существует мне встречалось более чем в 80 видах...)

А ваще, вот примерный хэш ошибок:

Код

my %error_type = (    1    => 'Адресат не существует',    2    => 'Адресат в данное время недоступен',    3    => 'Адресат заблокирован',    4    => 'Ящик адресата переполнен',    10   => 'Требуется аутентификация',    11   => 'Закрыт доступ с нашего почтового сервера',    12   => 'Сообщение расценено как СПАМ',    13   => 'Сообщение отвергнуто по политикам получателя',    14   => 'Сообщение расценено как вирус или "бомба"',    15   => 'Не разрешен доступ с нашего почтового сервера',    16   => 'Используется SMTP-сервер не провайдера',    17   => 'Сообщение отвергнуто одним из промежуточных серверов',    18   => 'Возможно неверное имя нашего почтового серверв',    20   => 'Неизвестное имя сервера',    21   => 'Несуществующий почтовый сервер',    22   => 'Неопознан адрес маршрутизации',    23   => 'Ошибка сервера при SMTP-обмене',    24   => 'Локальная ошибка сервера получателя',    25   => 'Связь с сервером была прекращена',    26   => 'SMTP-сервер получателя недоступен',    27   => 'Сервер получателя не принимает сообщение',    28   => 'Нет связи с почтовым сервером адресата',    30   => 'Неопознаная почтовая ошибка',    31   => 'Слишком длинный путь возврата письма',    32   => 'Путь возврата письма зациклен',    33   => 'Ошибочный формат данных/Сбой в формате данных' );

клёво, да??? всего более 250 разных вариантов сводятся к этим классам...
Добавлено @ 16:31
POP3Client - на CPANe есть.

буду пользоваться но позже.
Где взять этот POP3Client ?

http://search.cpan.org/~sdowd/Mail-POP3Client-2.16/