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

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

Форум программистов > Perl: Общие вопросы > Почта и приложения

Автор: FrenchCheese 13.11.2011, 10:17

есть рабочий клиент, забирает он почту и делает это нормально;)
появилась необходимость научить его забирать приложения к письмам
как это реализовать?
в RFC по pop3 ни слова об этом

Автор: dixoNICH 13.11.2011, 10:52

приложения? файлы что ли?

Автор: FrenchCheese 13.11.2011, 11:55

да, attachment что называется

Автор: dixoNICH 13.11.2011, 12:01

rfc mime

Добавлено через 6 минут и 26 секунд
пример кода

Код


while($buf=~/Content-Disposition:\sattachment;\s(\n)?(\s+)?filename="(.*)"/g){ 
            my $filename = $3;
            open S, ">:raw", $filename;
            if($buf =~/X-Attachment-Id:\s\w+[\r\n]{4}([\w\r\n\=\+\/]+)/sg){
                my $file = $1;
                $file = decode_base64($file);
                print S "$file";
                close S;
            }
        }

Автор: FrenchCheese 13.11.2011, 12:12

dixoNICH, спасибо за листинг и инфу о RFC!

Автор: shamber 13.11.2011, 12:36

FrenchCheese, тут уже не одна тема с получением вложений поднималась, не поленитесь поищите. может велосипед не понадобиться.