DouKaku?

ユーザーの入力を検査する関数 InputCheckerを作成して 3回連続実行してください。

関数 InputCheckerは、以下の仕様を満たしてください。

1. 引数に 時間(秒) Nと文字列 Sを受け取ること。
2. ユーザからの標準入力とあらかじめ指定された S を比較し、 一致すれば「OK」、一致しなければ「NG」を標準出力へ出力すること。
3. ユーザーの入力がN秒以内に完了しなかった場合は、比較せず 「TIME OUT」を標準出力へ出力すること。
4. 経過時間はユーザーが入力を開始した地点から計測すること。
5. ENTER キーの入力によってユーザー入力が完了したと仮定すること。
6. ユーザの入力が完了するまでは、完了を待ち続けること

たとえば、「InputCheker(5, "ABCDEF")」と指定した場合、 出力例はこんな感じです。

1. input(ABCDEF) =>ABCDEF<ENTER>
   1. result => OK
   2. result => NG
   3. result => TIME OUT

1. input(ABCDEF) =>

と出力して入力待ちをし、ユーザーが「ABCDEF<ENTER>」を入力したとき、 入力開始から5秒以内ならば「OK」、5秒をこえていれば「TIME OUT」を出力します。 このとき、ユーザーがキーを押下しなければ1. を出力してから たとえ10秒たっていても「TIME OUT」にはならないので注意してください。 時間計測はあくまでユーザーが入力を開始してからです。

---

このお題はraynstardさんの投稿です。ご協力ありがとうございます。

getc()とalarm()を使って。詳しくは

perldoc -f getc
perldoc -f alarm

を参照のこと。
Dan the Perl Monger

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

#!/usr/local/bin/perl
use strict;
use warnings;

sub cbreak{
   system "stty cbreak </dev/tty >/dev/tty 2>&1";
}

sub inputcheck{
    my ($sec, $str) = @_;
    print "INPUT($str)\n";
    cbreak;
    my $input = getc(); # wait until the 1st key is pressed
    eval {
        local $SIG{ALRM} = sub { die "alarm\n" };
        alarm $sec;
        while(my $c = getc()){
            last if $c eq "\n";
            $input .= $c;
        }
        alarm 0;
    };
    cbreak;
    $@ and return "TIMEOUT";
    $str eq $input ? "OK" : "NG";
}

print inputcheck(2, "dankogai"), "\n";