Поправить Perl-скрипт
Здравствуйте.
Необходимо исправить скорее всего одну строку в скрипте, которая некорректно работает, хотя могу и ошибаться. Скрипт использует сериализацию данных по примеру PHP. Используется такая конструкция:
---------------------
use PHP::Serialization qw(serialize unserialize);
my $serializedStr = serialize({info => $info, rules => $rules, players => $players});
затем $serializedStr записывается в поле таблицы БД MySQL.
----------------------
Проблема: массив $players содержит имена в UTF-8 кодировке, если встречаются какие-то специфические символы, то в базу записывается либо разорванная строка, либо некорректная. В итоге её нельзя обработать функцией unserialize на PHP.
Что необходимо сделать: либо сделать работу serialize правильной, либо перевести работу на JSON.
К сожалению доступ к среде, где выполняется данный скрипт дать не могу. Хотя уверен, что проблема кроется именно в некорректной работе функции serialize с некоторыми UTF-8 символами.