Существует ли в  Perl возможность декодировать картинки из Base64 в обычные .jpg ?
Может быть в модуле Image::Magick (но я не нашел)?

Задача такая.
Имеется примерно 70000 картинок в формате Base64
Они записаны в БД MySQL, которая в итоге весит более 3,5 гиг и сильно тормозит.

Идея в том, чтобы перевести изображения в .jpg и залить на обычный сервер, а в БД оставить только ссылки на картинки. Т.к. время отклика Апача на 2 порядка меньше, чем SQL, то это, как мне кажется, должно оптимизировать работу (Или я не прав?)

Для кодирования и декодирования Base64 в perl существует модуль MIME::Base64. Впрочем, не он один.



Скорее всего -- не прав. Дажэ если перенос картинок как-то улучшыт конкретную ситуацыю -- всё равно не прав.

Поскольку оптимизацыя выборок из баз данных -- это в общем довольно банальный процэсс, который заключается в выяснении того, что с данными происходит сейчас (в случае одного запроса к MySQL -- ну, хотя бы посмотреть query plan), выявлении "узких мест", определении, какие узкие места обеспечены какими физическими или программными ограничениями, и как эти физические или программные ограничения можно обойти. Только затем -- описание и тэстирование новых вариантов и сравнение с предыдущими.

Вы явно не делали первую часть, а собираетесь заниматься каким-то шаманством на работающем проекте. Не надо этого делать. Если Вам это всё делать лень, тем более что явно не Ваша область деятельности -- найдите программиста, который это сделает.

рэйд-масив




при таких объемах - вполне оптимальное решение!