Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Системное программирование > Email::delete, кодировки и Email parsing

Автор: firefix 18.7.2009, 10:41

Привет знатокам
У меня така ситуация:
Суть програмки проверить mailbox (локальная папка), узнать есть ли в нем письма, если да то выдернуть Subject и From; засунуть в http request; удалить email. Ну а если поможете и кусочек email-body выдернуть было бы просто супер!!!
делаю так:
Упрощаю так как с бОльшим разобрался:

Код


use Email::Folder;
use Email::StripMIME;
use Email::Delete qw[delete_message];
  my $folder = Email::Folder->new( "/home/vmail/stiev/" );

       for my $message ( $folder->messages ) {
       $some_needs="You have got new Email from ".unmime($message->header('from'))
        #HERE I NEED TO DELETE THIS MESSAGE! IS IT POSSIBLE?
                                                                  }

Поймите правильно - я не специализируюсь на перле! Не гоняйте в google - был долго!
СПАСИБО ЗАРАНЕЕ.

Автор: firefix 18.7.2009, 12:17

Разобрался с

Код


unmime($$message->header('subject'))

Ребята, как удалит Email через email::delete в том цикле?

Автор: firefix 18.7.2009, 15:09

Разобрался со всем. Удаляйте тему.
С Вами каши не сваришь.

Автор: arto 20.7.2009, 08:24

а зачем нам с вами варить кашу?