VPF::Получение сообщения и вложений по pop3

YLP

Дата 6.4.2010, 16:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Всем привет!

Подскажите, пожалуйста, как получить и сохранить вложение из скрипта.
С полями To, From, Cc, Subject, Date проблем нет, все получаю.

Код



use Net::POP3;
use MIME::Parser;
use MIME::Base64;
use Convert::Cyr qw(chcp);

...

sub read_mail
{
  $pop = Net::POP3->new("www.host.ru", Timeout => 60);
  if ($pop->login($login, $pass) > 0)
    {
       my $msgnums = $pop->list;
       my $NumberLetter = scalar keys %$msgnums;
       my $diff = $NumberLetter - 1;
       foreach my $msgnum (keys %$msgnums)
         {
            my $msg = $pop->get($NumberLetter - $diff);
            $diff = $diff - 1;
        
            foreach $line (@$msg)
             {
               # построчно перебираю строки, чтоб получить тему, от кого, кому, дату, копию...
             }
             &write_mail; # дальше требуемые поля записывается в БД.
          } 
       $pop->quit;
   }  
}

Собственно, надо получить файл/файлы и само сообщение и сохранить их по указанному пути (к примеру, C:/tmp/).
С perl начал знакомиться несколько дней назад, а надо срочно.
Заранее спасибо за помощь.

Это сообщение отредактировал(а) YLP - 6.4.2010, 23:22

shamber

Дата 7.4.2010, 00:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

YLP, в поиск по форуму

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