Показать сообщение отдельно
Старый 25.05.2008, 13:14   #13
Тролль
Знакомый Мадера
 
Регистрация: 09.11.2006
Сообщений: 54
По умолчанию

Я тут подумал - $:=''; убивает дальнейшие триги, которые могут хотеть сработать на эту строчку.

Короче, вот что работает (проверил) :
Код:
my $str="";

P::trig {
	return if not $str;
	P::echo $str;
	$str = '';
} '^.*$', 'f1000';

P::trig {
	$str = "YO! Работает!!!";
} '^Вы улыбнулись\.', 'f1000';
Тролль вне форума   Ответить с цитированием