Дитям - мороженое, бабе - цветы

[eldhenn]

Смотри не перепутай!

while (my $stip = $dictionary_stipendia_sth->fetchrow_hashref) {
    $_ = Encode::decode('windows-1251', $_) for values %$stip;
    $dictionary_stipendia->{$stip->{id}} = $stip;
}
$dictionary_stipendia = encode_json($dictionary_stipendia);
Encode::from_to($dictionary_stipendia, 'utf8', 'windows-1251');

Comments

[eldhenn]

Точнее говоря, из базы получаем $data, затем

$::json->decode(Encode::encode("cp1251", Encode::decode("UTF-8", $data)))

Затем делаеи всё, что нужно, и на клиент отдаём просто $::json->encode($struct)
А в базу потом пишем Encode::encode('cp1251', $::json->encode($struct)).

Ужасно, да.