8 декабря 2014 г., 21:40 пользователь Харпалёв Иван
<[email protected]> написал:
> Есть строка, без флага utf8.
> Utf8-консоль отображает строку зюками.
> decode("Detect", $data); не угадывает.
>
> Как правильно перевести в utf8?
>
> Где взять массив всех возможных ENCODING, чтобы переводить из них в utf8 и
> смотреть, угадали или нет?
> в pod Encode::Supported как получить массив не вижу.
perl -MEncode -e 'print join qq{\n}, Encode->encodings(q{:all})'
Только толку от этого мало. Почти любая случайная последовательность
байтов является валидным инпутом почти для всех однобайтовых
кодировок. Так что придётся делать анализ осмысленности получившегося
при декодировании текста.
>
> Вроде насущна проблема,
> как такое делать?
>
> Спасибо!
>
> --
> Moscow.pm mailing list
> [email protected] | http://moscow.pm.org
>
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
