Автор Тема: БЭН! Это Данила! I need help! Perl &MIME  (Прочитано 2510 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн vate.zlo

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 1
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
БЭН! Это Данила! I need help! Perl &MIME
« : 02 Марта 2004, 00:23:49 »
Ну очень сильно нужна помощь!
Задача: Выдрать аттачмент из письма Perl скриптом.

Там аттач в виде здорового такого столбца из символов. И судя по документации эта чтука зашифроффана при помощи

use MIME::Base64;

$text=encode_base64($text);
.....

Предположим, что в аттачменте doc файл и я копирую эту белиберду (Зашифрованный столбец) в файл enc.f
И провожу что то вроде:

$t=\'\';
open(F,"enc.f");
@file=;
open(f2,">dec.doc");
foreach $s (@file) {
chomp($s);
$t.=$s
}
$t=decode_base64($t);
print f2 $t;
close F;
close f2;

Вроде все путем? Да, если открыть исходный док файл и полученный каким-нибудь блокнотом, то они выглядят одинаково, но вот полученный файл чуть-чуть длинее, и вордом не открывается...(17036 байт против 16947 например)

Некоторые посоветовали мне пользоватся MIME:tools а конкретно  MIME::parser. Всё бы хорошо, да я начинающий и нИччего не понимаю.

Пожалуйста, привидите пример готовой программы выдирающей аттач из мыла!

И пожааалуйста не посылайте меня к perldoc\'у! Я его уже видеть не могу!!!! :((((((:insane:

Оффлайн Chs

  • Perl программер
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 1108
  • +0/-0
  • 2
    • Просмотр профиля
    • http://chs.now.at/
БЭН! Это Данила! I need help! Perl &MIME
« Ответ #1 : 02 Марта 2004, 10:30:21 »
perldoc MIME::tools
Англицким и по бэкграунду, очень доходчиво.
2B OR NOT 2B = FF

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28