Тема
:
ПодЦветка с заменой. + часики (ММС)
Показать сообщение отдельно
16.03.2006, 15:06
#
2
dzMUDiST
Занятой мадер
Регистрация: 10.03.2004
Адрес: Минск
Сообщений: 149
trig {
my @time = (localtime)[2,1];
$clock = join ":", @time;
$: = "\003I\[$clock\] $1 -> \'$2\'";
} '^([^ ]*?) сказал.? : \'(.*?)\'', 'f1000';
Вот только режет строки с ' (кавычками)
dzMUDiST
Посмотреть профиль
Найти ещё сообщения от dzMUDiST