language auto shift
Как реализовать программное переключение языка в консольной программе на perl?
Локаль utf8, FC4.
Подписаться
Бесплатный дискуссионный лист
Подписчиков 997
За последние 60 дней ни разу не выходила
Сайт листа:
http://www.linuxrsp.ru
Открыт:
25-07-2003
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.linux.discuss-list@subscribe.ru
Адрес
модератора: comp.soft.linux.discuss-owner@subscribe.ru
Модератор
Статистика
997 подписчиков
0 за неделю
0 за неделю
Ответы:
On Tue, 2005-08-23 at 21:27 +0300, Konstantin Korikov wrote:
Языка австралийской обезьяны!
В сообщении от 1124917944 секунд после начала Эпохи Strong написал(а):
Ну тогда это можно реализовать примерно таким способом:
use Encode;
my $charset='KOI8-R';
my $subj = encode('MIME-Header',
decode($charset, 'Смените язык!'));
my $body = encode('UTF-8', decode($charset, <<EOF));
Уважаемые австралийские обезьяны!
Прошу вас сменить язык.
EOF
my $msg = <<EOF;
From: Strong <s-stro***@m*****.ru>
To: all_australian_monke***@m*****.au
Subject: $subj
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
$body
EOF
my $result = 0;
open(F, "| /usr/sbin/sendmail -t");
print F $msg;
close(F);
Для простоты составления и отправки сообщения можно воспользоваться
высокоуровневым интерфейсом, предоставляемым пакетом `MIME::Entity'.
Надеюсь помог.
А где тут консоль?! Хорошо, идея:
прога-тренажёр языков: она - слово, чел - перевод. Т.к. слово-перевод
происходит в обе стороны, то нужно менять раскладку... Вот и думаю: как
это переключение автоматизировать...
В сообщении от 1125094885 секунд после начала Эпохи Strong написал(а):
Консоль у нас в `/dev/tty0'.
Думаю, никак. I don't find any suitable ioctl's or console escape or
control sequences.
Можно конечно кривым способом, загружая подготовленные специальным
образом раскладки (keymaps)... Но это не стоит того.
On Sat, 27 Aug 2005 02:46:42 +0300
Konstantin Korikov <lostcl***@u*****.fm> wrote:
А можно взять кусок из исходников xkb. Гы... ;)
В сообщении от 1125127253 секунд после начала Эпохи Matvey написал(а):
Что мы и сделали. :) Но на этот раз уважаемый Strong хочет
переключать раскладку в виртуальных консолях (не в иксах).
On Sat, 27 Aug 2005 17:35:41 +0300
Konstantin Korikov <lostcl***@u*****.fm> wrote:
Это которые ctrl+alt+Fx ? А там она чем переключается? getty?
Кстати, где настраивается комбинация клавиш для консолей, не найду_
On Sat, 27 Aug 2005 17:35:41 +0300
Konstantin Korikov <lostcl***@u*****.fm> wrote:
Это которые ctrl+alt+Fx ? А там она чем переключается? getty?
Кстати, где настраивается комбинация клавиш для консолей, не найду_
В сообщении от 1125164917 секунд после начала Эпохи Matvey написал(а):
Да, да.
Кнопками на клавиатуре. Обрабатывается драйвером консоли в ядре.
Комбинация "вшита" в раскладку. Раскладки лежат в `/lib/kbd/keymaps'.
Спасибо за ответы...
В сообщении от 1124811804 секунд после начала Эпохи Strong написал(а):
Переключения языка чего? Языка пользовательского интерфейса? Языка
программирования? Языка телепрограммы? Языка президента Соединенных
Штатов? Языка вашей собаки?