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

[Nikolay Mishin]

дайте мне эту строку,
    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, "Харпалёв Иван" <ivan.kharpalev на gmail.com>:
> Есть строка, без флага utf8.
> Utf8-консоль отображает строку зюками.
> decode("Detect", $data); не угадывает.
>
> Как правильно перевести в utf8?
>
> Где взять массив всех возможных ENCODING, чтобы переводить из них в utf8 и смотреть, угадали или нет?
> в pod Encode::Supported как получить массив не вижу.
>
> Вроде насущна проблема,
> как такое делать?
>
> Спасибо!
> ,
>
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org

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