ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Leonid Subbotin                      2:5007/16      14 May 2000  20:48:44
 To : All
 Subject : про терминалы
 -------------------------------------------------------------------------------- 
 

 
 use Term::ReadKey;
 open(IN,"</dev/tty");
 ReadMode 3, IN;
 
 rep:
 $key=ReadKey(-1,IN);
 if(unpack("c",$key) == 27){
 
 $key=unpack("c",ReadKey(-1,IN));
 if($key != 91){
 print "esc\n";
 goto rep;}
 
 $key=unpack("c",ReadKey(-1,IN));
 if($key == 65){print "up\n";}
 if($key == 66){print "down\n";}
 if($key == 67){print "right\n";}
 if($key == 68){print "left\n";}
 }
 goto rep;
 
 проблемы в том, что с медленного терминала не работает (например модем), точнее
 работает, только выскакивают 'esc' при длительном нажатии кнопки (например up).
 В локале все ok.
 
 Ваши предложения ?
 
                                                        Всегда с вами Sln !
 --- GoldED+/LNX 1.1.4.3
  * Origin: Sln Station (2:5007/16)
 
 

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

Тема:    Автор:    Дата:    про терминалы   Leonid Subbotin   14 May 2000 20:48:44   Re: про терминалы   Artem Chuprina   18 May 2000 18:01:29