!! В данный момент модуль alterator-perl-functions меняется, и вряд ли его стоит сейчас использовать. Надеюсь, что вскоре он придет к какому-то более стабильному состоянию... !!

alterator-perl-functions

#!/usr/bin/perl -w use strict; use Alterator::Backend3; $TEXTDOMAIN='alterator-test'; $DEBUG = 1; sub on_message{ my message=shift; if ($message->{action} eq 'read'){ write_string_param('name', 'value'); } } message_loop(\&on_message);

Поддержка переводов

• определена функция N_()
• перед запуском message_loop надо выставить переменную $TEXTDOMAIN. Если переменная не выставлена, модуль ругается и выставляет ее в alterator-<имя бакенда>
• язык выставляется из параметра language заново для каждой команды. Значение по умолчанию 'en_EN'

Вывод

В процедуре on_message сделано перенаправление STDOUT->STDERR. Все ответы должны выполняться только специальными командами:

Самый низкий уровень. Возможно, получится от них отказаться:

DEBUG

* Если переменная $DEBUG выставлена в ненулевое значение, модуль выдает на stderr все полученные и отправленные сообщения.