Добрый день, уважаемые! Помогите решить проблему.

Получаю строку $data, в которой в base64 закодирована jpg картинка. Пытаюсь декодировать и записать картинку в файл, однако в итоге картинка получается битая. с помощью просмоторщика видно, что она создается примерно на половину. код такой 



перл выдает ошибку "Premature padding of base64". Где ошибка?

Попробуйте воспользоваться модулем MIME::Decoder.

На сервере нет такого модуля, и я не имею возможности его поставить

Paher, поменять сервер не предлагать?

не предлагать. можно работать только с тем, что есть. а оно и не работает...

две особенности, которые заметил.

 во-первых, substr почему-то не хочет брать подстроку больше 1024 символов.

во-вторых, примерно на том же проценте, где режется картинка, процедура substr берет строку меньше обычной длины(похоже, дополняет до какого-то значения). т.е. идут строки по 1024, затем одна строчка  494, затем опять 1024 и последняя строчка в зависимости от общей длины

Это сообщение отредактировал(а) Paher - 5.11.2009, 15:00

Вообще странно. Если $data, в которой в base64 закодирована jpg картинка, закодирована правильно, то, вроде, должно работать просто
print IMAGE decode_base64($data);
без всякой проедварительной обработки.

вот по этому адресу

http://www.opennet.ru/man.shtml?topic=MIME...3&russian=3

написано про большие файлы. оттуда и обработку взял.

но, похоже, проблема в данных.  потому как при 

print IMAGE decode_base64($data);

результат то же