ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Roman Guezikov                       2:5020/400     31 Oct 2000  15:09:07
 To : All
 Subject : Ввод пользователя с тайм аутом.
 -------------------------------------------------------------------------------- 
 

 Всем привет!
 
 Хочу чтоб скрипт ждал N секунд ввода пользователя и продолжал выполняться,
 если его нет.
 Попробовал вот такую штуку
 
 eval {
   local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required
   alarm 3;
   $nread = <>;
   alarm 0;
 };
 
 if ($@) {
   die unless $@ eq "alarm\n";   # propagate unexpected errors
   # timed out
 }else {
   # didn't
   print $nread, "\n";
 }
 
 В рез-те получил
 
 The Unsupported function alarm function is unimplemented at tin.pl line 5.
         ...propagated at tin.pl line 11.
 
 Вопросы:
 
 1. Значит ли это что в перле под вин32 нет alarm?
 2. Как сделать то, что я хочу? (подробно).
 
 Благодарю заранее.
 
 --
 Regards,
 Roman Gesikov
 Отправлено через сервер Talk.Ru - http://www.talk.ru
 --- ifmail v.2.15dev5
  * Origin: Benefon (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор