VPF::Как определить и установить кодировку терминала?

b00

Дата 31.12.2009, 17:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 27.9.2009
Где: Петербург

Репутация: нет
Всего: нет

Скрипт запускается под Linux (локаль utf8), Window (active perl, cp866) и Cygwin (cp1251).
Задача - установить кодировку STDOUT такой же, как и кодировка терминала и получить на выходе читаемый русский текст.
Как это сделать правильно (если модули - то только из стандартной поставки 5.8.8 и выше)?

Пришедшее мне в голову решение работает, но всегда же хочется большего smile

Код


use utf8;
require encoding;
import encoding  ('utf8', 'STDOUT' => &SetEncoding);

sub SetEncoding {
    if ($^O =~ /^MSWin\d{2}$/i) {
        return 'cp866';
    }
    elsif ($^O =~ /^cygwin$/i) {
        return 'cp1251';
    }
    elsif ($^O =~ /^linux$/i) {
        return 'utf8';
    }
    else {
      print "Can't detect and set terminal encoding\n";
      exit 0;
    }
}

PS Всех с наступающим!

Это сообщение отредактировал(а) b00 - 31.12.2009, 17:18

DurRandir

Дата 1.1.2010, 07:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 335
Регистрация: 27.9.2009

Репутация: 14
Всего: 17

use CPAN, Luke smile

Term::Encoding

Но это не стандартный модуль.

LuxInTenebris

Дата 19.1.2010, 20:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 22.2.2009

Репутация: нет
Всего: нет

под Linux лучше всего анализировать переменную окружения LANG на предмет текущей кодировки

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »