Модераторы: ginnie, korob2001
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Email::delete, кодировки и Email parsing 
:(
    Опции темы
firefix
Дата 18.7.2009, 10:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 18.7.2009

Репутация: нет
Всего: нет



Привет знатокам
У меня така ситуация:
Суть програмки проверить 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, 13:46
PM MAIL   Вверх
firefix
Дата 18.7.2009, 12:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 18.7.2009

Репутация: нет
Всего: нет



Разобрался с 
Код

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

Ребята, как удалит Email через email::delete в том цикле?
PM MAIL   Вверх
firefix
Дата 18.7.2009, 15:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 18.7.2009

Репутация: нет
Всего: нет



Разобрался со всем. Удаляйте тему.
С Вами каши не сваришь.
PM MAIL   Вверх
arto
Дата 20.7.2009, 08:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 1
Всего: 40



а зачем нам с вами варить кашу?
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl: Системное программирование"
korob2001
sharq
  • В этом разделе обсуждаются вопросы относящиеся только к системному программированию на Perl
  • Если ваш вопрос не относится к системному или CGI программированию, задавайте его в общем разделе
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Системное программирование | Следующая тема »


 




[ Время генерации скрипта: 0.1533 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.