Пытался сделать прерывание таймер 2мя способами

1.use Time::HiRes qw ( setitimer ITIMER_VIRTUAL );
  if (setitimer(ITIMER_VIRTUAL, 1, 4)) {print "1";};
  while (1>0){}
  Выдает ошибку Your vendor has not defined Time::HiRes macro ITIMER_VIRTUAL

2. use Time::HiRes qw( ualarm );
   ualarm(1000000);
   $SIG{ALRM} = sub { die };
      while (1>0)
{}

Выдает ошибку
Time::HiRes::ualarm unimplemented in this platform.

Все делается под виндами (пока что). USLEEP работает

Может у кого есть готовый скрипт прерывания по таймеру

• Таймер,Alexious, 12:41 , 01-Май-07
  • Таймер,Homewrecker, 19:11 , 02-Май-07
    • Таймер,Alexious, 10:34 , 03-Май-07

>Пытался сделать прерывание таймер 2мя способами
>
>1.use Time::HiRes qw ( setitimer ITIMER_VIRTUAL );
>  if (setitimer(ITIMER_VIRTUAL, 1, 4)) {print "1";};
>  while (1>0){}
>  Выдает ошибку Your vendor has not defined Time::HiRes macro ITIMER_VIRTUAL
>
>
>2. use Time::HiRes qw( ualarm );
>   ualarm(1000000);
>   $SIG{ALRM} = sub { die };
>      while (1>0)
>{}
>
>Выдает ошибку
>Time::HiRes::ualarm unimplemented in this platform.
>
>Все делается под виндами (пока что). USLEEP работает
>
>Может у кого есть готовый скрипт прерывания по таймеру

Под Unix все заработало

Не могу проверить, но вроде как виндоус не ловит $SIG{ALRM}

>Не могу проверить, но вроде как виндоус не ловит $SIG{ALRM}

Так и есть