форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Архивированная нить - только для чтения!  Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Бэн! Это Данила! I need help! (Perl & MIME)"
Сообщение от vate.zlo on 01-Мрт-04, 14:38  (MSK)
Ну очень сильно нужна помощь! Задача: Выдрать аттачмент из письма Perl скриптом. Там аттач в виде здорового такого столбца из символов. И судя по документации эта чтука зашифроффана при помощи use MIME::Base64; $text=encode_base64($text); ..... Предположим, что в аттачменте doc файл и я копирую эту белиберду (Зашифрованный столбец) в файл enc.f И провожу что то вроде: $t=''; open(F,"enc.f"); @file=<F>; open(f2,">dec.doc"); foreach $s (@file) { chomp($s); $t.=$s } $t=decode_base64($t); print f2 $t; close F; close f2; Вроде все путем? Да, если открыть исходный док файл и полученный каким-нибудь блокнотом, то они выглядят одинаково, но вот полученный файл чуть-чуть длинее, и вордом не открывается...(17036 байт против 16947 например) Прошу вашей помощи... Вот. С надеждой...
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "Бэн! Это Данила! I need help! (Perl & MIME)"
Сообщение от StatusQuo on 02-Мрт-04, 00:32  (MSK)
>$t=''; >open(F,"enc.f"); Здесь я скорее поставил бы такую строку: open(F,"<enc.f"); >@file=<F>; >open(f2,">dec.doc"); А в целом твой скрипт у меня работает. То что у тебя происходит напоминает то, что разделитель записей в Юниксе и Виндах - разный. Скорее всего на какой-то стадии это сказывается и добавляются лишние символы. Я бы сделал то попроще: open(F,"enc.f");   {     local $/ = undef; # присваиваем переменной разделителя записей неопределённое значение внутри блока { }     $file = <F>; # и записываем весь файл в один строковый скаляр   } open(f2,">dec.doc"); $t=decode_base64($file); print f2 $t; close F; close f2; Попробуй как этот вариант работает.
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	2. "Бэн! Это Данила! I need help! (Perl & MIME)"
	Сообщение от ix_adm on 09-Мрт-04, 14:44  (MSK)
	>>$t=''; >>open(F,"enc.f"); > >Здесь я скорее поставил бы такую строку: >open(F,"<enc.f"); > >>@file=<F>; >>open(f2,">dec.doc"); > >А в целом твой скрипт у меня работает. То что у тебя >происходит напоминает то, что разделитель записей в Юниксе и Виндах - >разный. Скорее всего на какой-то стадии это сказывается и добавляются лишние >символы. Я бы сделал то попроще: > >open(F,"enc.f"); >  { >    local $/ = undef; # присваиваем переменной разделителя >записей неопределённое значение внутри блока { } >    $file = <F>; # и записываем весь файл в один строковый скаляр >  } > >open(f2,">dec.doc"); >$t=decode_base64($file); >print f2 $t; >close F; >close f2; > >Попробуй как этот вариант работает. Можно использовать чужой велосипед -- юзать Mail::MboxParser За год эксплуатации никаких нареканий.
		Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.