VPF::OnKeyPress в перле во время выполнения цикла

Perl_sapiens

Дата 12.5.2008, 21:49 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 19.2.2008

Репутация: нет
Всего: нет

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

ramus

Дата 12.5.2008, 22:11 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 53
Регистрация: 21.2.2008

Репутация: 1
Всего: 1

Где крутится? Если Ваша система поддерживает 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;

Это сообщение отредактировал(а) ramus - 12.5.2008, 22:17

shamber

Дата 13.5.2008, 08:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

Репутация: 17
Всего: 18

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

KSURi

Дата 13.5.2008, 09:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 887
Регистрация: 8.6.2006
Где: Russia

Репутация: 20
Всего: 27

Код


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

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

--------------------

Died at Life.pl line 21

Perl_sapiens

Дата 13.5.2008, 11:51 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 19.2.2008

Репутация: нет
Всего: нет

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

)

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

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »