Forum Webscript.Ru
Программирование => Perl => Тема начата: vate.zlo от 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:
-
perldoc MIME::tools
Англицким и по бэкграунду, очень доходчиво.