уменьшить значение переменной со временем

Question

Я хочу написать скрипт в perl, который определит значение переменной say «10». Затем он попросит пользователя ввести значение через STDIN для этой переменной. Если пользователь вводит значение в пределах фиксированного интервала времени, то принимайте это значение, иначе продолжайте программу, приняв это значение по умолчанию 10.

Я понятия не имел, как это сделать. Я думал о чем-то вроде этого. $ t = 120 (за 120 секунд) уменьшает значение «$ t» с каждой секундой, если пользователь вводит некоторое значение , затем выходит из цикла и продолжается, иначе, когда $ t становится 0, принимает значение по умолчанию и продолжается. Но, я не знаю, как я могу уменьшить значение переменной во времени вместе с запросом пользователя на ввод.

Я могу это сделать, уменьшить значение переменной со временем, но в этом я не могу принять вход.

Answer 1

Вот простой пример того, как вы можете сделать это с сигналом тревоги.

use strict; 
use warnings; 

my $input = eval { 
    my $tmp; 

    # this sub will be called after the timeout set by the alarm below 
    local $SIG{ALRM} = sub { 
     print "timeout - using default value 10\n"; 
     $tmp = 10; 
    }; 

    print "enter input: "; 
    alarm 10; # wait for 10 secs 
    $tmp = <>; 
    alarm 0;  # turn off alarm if we got input within 10 secs 
    $tmp; 
}; 

print "the value is: $input\n"; 

Answer 2

Вы можете также сделать это с IO :: Выбрать

use strict; 
use IO::Select; 

my $value = 10; 
my $obj = IO::Select->new(\*STDIN); 
foreach my $hand ($obj->can_read(2)) { 
    $value = <$hand> ; 
} 
print "value is :$value:\n" ; 

Answer 3

Я думаю, что вы ищете Prompt::Timeout.