08.07.2008, 23:40
|
|
Постоянный
Регистрация: 03.08.2007
Сообщений: 367
Провел на форуме:
876216
Репутация:
209
|
|
Смотря что подразумеваешь под таймером...можно сделать так...
Записываешь в переменную время начала витка цикла, потом по аларму проверяешь разницу во времени начала цикла и текущего, если разница больше определенного значения, то чтото типа next MARK
Короче чтото типа
Код:
our $start;
MARK:
foreach(@mas)
{
$start = time;
alarm(1);
print $_;
$start = undef;
}
local $SIG{'ALRM'} = \&check_alarm;
sub check_alarm
{
next MARK if((time - $start) > 30 and defined $start); # 30 секунд
alarm(1);
}
ЗЫЖ Сорри, если че - не проверял, да и не совсем вменяем щас %))) |
|
|