Первый постер и часть времени perl noobie.
Я делаю рефлекторную игру. Здесь вывод -
__________________________________________________________________________
Reflex game initiated. Press ENTER to begin the game, and then press ENTER
after the asterisks are printed to measure your reflexes!.
*************************
Your result: 0.285606 seconds.
logout
[Process completed]
__________________________________________________________________________
Есть одна небольшая проблема: - 0-10 секунд (основанная на случайной переменной) после нажатия кнопки ввода, чтобы начать игру и до того, как будут напечатаны звезды. В течение этого времени, если игрок нажимает ENTER, он регистрируется как время рефлекса. Поэтому мне нужно, чтобы мой код не читал кнопку ENTER до того, как будут напечатаны звезды. Код -
#!/usr/bin/perl
use Time::HiRes qw(sleep);
use Time::HiRes qw(gettimeofday);
#random delay variable
$random_number = rand();
print "Reflex game initiated. Press ENTER to begin the game, and then press ENTER after the asterisks are printed to measure your reflexes!.\n";
#begin button
$begin = <>;
#waits x milliseconds
sleep(10*$random_number);
#pre-game
$start = [ Time::HiRes::gettimeofday() ];
print "\n****************************\n";
#user presses enter
$stop = <>;
#post game
$elapsed = Time::HiRes::tv_interval($start);
#delay time print
print "Your result: ".$elapsed." seconds.\n";