https://www.opennet.ru/openforum/vsluhforumID9/8805.html Привет всем!<br><br>1)Нужно перевести текст из кодировки UTF8 в UCS2, в Perl -е<br><br>Покопался с нете нашел нечто такое, но не работает:<br><br>====<br>use Encode qw/encode decode/;<br><br>$ucs2 = encode("UCS-2LE", $text);<br>====<br><br><br>2)Подскажите, как в Perl-e проверить кодировку? Т.е. есть ли какая нибудь функция в которую можно задаёшь текст, а она тебе выводит кодировку?<br><br><br>Заранее благодарен!<br> https://www.opennet.ru/openforum/vsluhforumID9/8805.html#5 Mon, 30 Aug 2010 08:21:51 GMT &gt; и как же iconv проверяет кодировку?<br><br>Он её не проверяет, а дефолтная берется из getenv( LANG );<br><br><br>&gt; Это довольно не трививальная задача. <br><br>TESTWORD="Тестирование"<br><br>FOR I IN $LIST_OF_KNOWN_CODING <br> DO <br> FOR J IN $ASPELL_WORDLIST <br> DO<br> TMPSTR = encode(I, J);<br> RET = STRCMP(TMPSTR, TESTWORD);<br> IF ( RET == 0 ) <br> RETURN I; <br> ENDO <br>ENDO<br><br><br>как-то так<br> https://www.opennet.ru/openforum/vsluhforumID9/8805.html#4 Wed, 11 Aug 2010 07:19:27 GMT &gt;Привет, <br>&gt;<br>&gt;Вообще-то есть на свете и iconv, хотя конкретное решение зависит от задачи <br>&gt;- но можно, наверно, и без Perl обойтись. <br>&gt;<br>&gt;WWell, <br><br>и как же iconv проверяет кодировку? Это довольно не трививальная задача.<br> https://www.opennet.ru/openforum/vsluhforumID9/8805.html#3 Tue, 10 Aug 2010 20:02:14 GMT Привет,<br><br>Вообще-то есть на свете и iconv, хотя конкретное решение зависит от задачи - но можно, наверно, и без Perl обойтись. <br><br>WWell,<br> https://www.opennet.ru/openforum/vsluhforumID9/8805.html#2 Sun, 18 Jul 2010 19:08:49 GMT &gt;[оверквотинг удален]<br>&gt;<br>&gt;$ucs2 = encode("UCS-2LE", $text); <br>&gt;==== <br>&gt;<br>&gt;<br>&gt;2)Подскажите, как в Perl-e проверить кодировку? Т.е. есть ли какая нибудь функция <br>&gt;в которую можно задаёшь текст, а она тебе выводит кодировку? <br>&gt;<br>&gt;<br>&gt;Заранее благодарен! <br><br>проверка кодировки относиться к методам дешифровки, проверяется в перле так же как и везде - любой дешифрующей методикой, лично я бы использовал метод анализа на основе статистически встречающихся в тексте букв и буквенных пар, но можно делать и на основе словаря. творите )<br> https://www.opennet.ru/openforum/vsluhforumID9/8805.html#1 Fri, 16 Jul 2010 12:28:00 GMT Сделал так и все заработало:<br><br>use Encode; <br>$ucs2 = encode("UTF-16be", $text); <br><br><br>