https://m.opennet.me/openforum/vsluhforumID3/98731.html Преобразование из UTF-8 в KOI8-R:<br><br> use Unicode::Map8;<br> use Unicode::String qw(utf8);<br> my $koi8 = Unicode::Map8-&gt;new("koi8-r");<br> $koi8_string = $koi8-&gt;to8(utf8($utf8_string)-&gt;utf16);<br><br>Обратное преобразование <br><br> use Unicode::Map8;<br> use Unicode::String qw(utf16);<br> my $koi8 = Unicode::Map8-&gt;new("koi8-r");<br> $utf8_string = utf16($koi8-&gt;to16($koi8_string ))-&gt;utf8; <br><br><br>Другой метод:<br><br> use Encode;<br> $koi8_text = from_to($utf8_text, "utf8", "koi8-r");<br> $utf8_text = from_to($koi8_text, "koi8-r", "utf8");<br><br>URL: <br>Обсуждается: http://www.opennet.ru/tips/info/713.shtml<br> https://m.opennet.me/openforum/vsluhforumID3/98731.html#1 Mon, 15 Sep 2014 21:05:12 GMT [Tue Sep 16 03:04:07.176444 2014] [:error] [pid 15279] Undefined subroutine &ModPerl::ROOT::ModPerl::Registry::var_www_html_proxy143_2etk_view_msg_2epl::utf16 called at /var/www/html/proxy143.tk/view_msg.pl line 105.\n<br>