ПодЦветка с заменой. + часики (ММС)

[d_blacky]

Сообщение от Urik

ИМЕНЕМ ФАЙЛА ПРИКАЗЫВАЮ - ГРУЗИСЬ!!!

очень содержательный ответ, несущий глубокий концептуальный и подсмысловой контекст...
Ничего интересней (по теме) сказать не нашлось?

Вот мой вариант часиков, (в нем не происходит смещения текста когда часы отображают:
[9:59] Кто-то -> 'что-то'
[10:00] Кто-то -> 'что-то'
(конечно когда это в главном окне происходит это не так заметно, но если сбрасывать это еще и в како-нибудь из окон -- то там это как-то криво смотрится, когда строчки начинают с 1 до 9 часов смещаться).

trig {
my $out = "\003I\[".(sprintf "%2d:%2d", (localtime)[2,1])."\]\003H $1 -> \'$2\'";
wecho(1, $out); # хотя мб можно сразу посылать "$:" в кач-ве аргумента, просто оно !reading, поэтому кое где ее нельзя так легко использовать как обычную переменную.
$: = $out;
} '^(\w+?) сказал.? : \'(.*?)$\'', 'f1000';

Сообщение от Jungle

Нашел куда добавить, но имхо я помню, что давно-давно я делал как-то по-другому ;( и прописывал сразу из ММС что да как. и с кавычками этими тоже пхало ;(

Можно в строку ввода писать любой perl код по типу:
/perl{trig{sendl("г спам!")} '^Минул час\.$', "test"}
, но в этом случае эти триггеры не сохранятся при выключении клиента (даже если выключать его через /quit, а не как закрывают jmc.

По поводу *.pm -- можно из них добавлять информацию через:
include -- если *.pm оформлен просто как кусок текста на перле,
или через use (когда .pm реально оформлен по всем правилам как Perl Module, а не просто как кусок кода)