ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Ruslan Bondarev                      2:463/94.12    16 Jun 2001  10:49:52
 To : George
 Subject : Re: perl консольное приложение
 -------------------------------------------------------------------------------- 
 

 Пятница Июнь 15 2001 23:50, George -> All:
 
  G>  Как опpеделить нажатие клавиши?
  G> Суть: код должен pаботать пока не отpаботает или не будет пpеpван
  G> нажатием клавиши.
  G> win2000, activestateperl 5.6
 
     perldoc Win32::Console, Term::Readkey
 
 use Win32::Console;
 $IN = new Win32::Console(STD_INPUT_HANDLE);
 
 $IN->Mode(ENABLE_PROCESSED_INPUT);
 $IN->Flush();
 
 while ($IN->GetEvents)
 {
   my @event = $IN->Input();
   if ($event[0] == 1 && $event[1]) # thus, we have key pressed
   {
     my $code = $event[3]; # keycode
     ....
   }
 }
 
 ... bye.
 --- Медленно любила, пережевывая...
  * Origin:  (2:463/94.12)
 
 

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

Тема:    Автор:    Дата:    perl консольное приложение   George   15 Jun 2001 23:50:29   Re: perl консольное приложение   Ruslan Bondarev   16 Jun 2001 10:49:52