Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > OnKeyPress в перле во время выполнения цикла

Автор: Perl_sapiens 12.5.2008, 21:49

Ну задачка такая: крутится цикл и он будет долго крутится. Я хочу его приостановить нажанием клавиши ESC. Вот как это реализовать?

Автор: ramus 12.5.2008, 22:11

Где крутится? Если Ваша система поддерживает Term::ReadKey, то можно так

Код


  use Term::ReadKey;

  my $key=ReadKey(-1);
  my @keys;
  while (defined $key) { 
    #printf ("\n%s Dec: %d\t Hex: %x\n",$key, ord($key),ord($key)) if $debug>1; 
    push @keys,ord($key) ;
    $key=ReadKey(-1);
  } 

  print @keys;

Автор: shamber 13.5.2008, 08:31

Perl_sapiens,
ключевые слова
ctrl+C
сигналы

Автор: KSURi 13.5.2008, 09:13

Код


$SIG{INT} = sub {
     print 'ctrl-c hooked';
}; # Ctrl-C

ну и еще можно perldoc sigtrap

Автор: Perl_sapiens 13.5.2008, 11:51

Цитата(ramus @ 12.5.2008, 22:11

)

Где крутится?

Ой, пардон))) ОСь "Фортачки ХиППи"(WinXP)