VPF::асинхронное чтение с клавиатуры

tolkien

Дата 1.7.2008, 11:16 (ссылка)

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

Загрузка ...

Опытный

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

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

Нужна помощь. Код который я использовал для асинхронного чтения с сокетов, не работает для асинхронного чтения с клавиатуры. Как сделать чтобы он заработал? У меня получилось только запуском параллельного потока для чтения ввода с клавиатуры. Но хотелось бы решить эту задачу с помощью select. ОС Win2k ActivePerl 5.8

Код


while(1)
{
  my $rin = '';
  my $rout = 0;
  vec($rin, fileno(STDIN), 1) = 1;
  my $nfound = select($rout=$rin, undef, undef, .8);
  
  if ($nfound > 0)
  {
    my $s = '';
    sysread(STDIN, $s, 1024);  
    print 's = ', $s;
  }
}

shamber

Дата 1.7.2008, 11:37 (ссылка)

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

Загрузка ...

Эксперт

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

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

C помощью select под виндой никак.

Это сообщение отредактировал(а) shamber - 1.7.2008, 11:38

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