Re: [Moscow.pm] Угадать кодировку (перебором)

Mon, 08 Dec 2014 13:23:02 -0800 

дайте мне эту строку,
    use utf8;
    use Encode::Locale;

    if (-t) 
    {
        binmode(STDIN, ":encoding(console_in)");
        binmode(STDOUT, ":encoding(console_out)");
        binmode(STDERR, ":encoding(console_out)");
    }
    
print "я пишу по-русски в любой консоли\n";

08.12.2014, 21:41, "Харпалёв Иван" <[email protected]>:
> Есть строка, без флага utf8.
> Utf8-консоль отображает строку зюками.
> decode("Detect", $data); не угадывает.
>
> Как правильно перевести в utf8?
>
> Где взять массив всех возможных ENCODING, чтобы переводить из них в utf8 и 
> смотреть, угадали или нет?
> в pod Encode::Supported как получить массив не вижу.
>
> Вроде насущна проблема,
> как такое делать?
>
> Спасибо!
> ,
>
> --
> Moscow.pm mailing list
> [email protected] | http://moscow.pm.org

-- 
С уважением
Николай Мишин

-- 
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить