Perl キー入力待ち

メモ

受け取った文字列を表示し、キー入力待ち状態になる。

関数の使用例

use Term::ReadKey;
use Time::HiRes;

WaitHitKey("Start Download by Hit Any Key.");
Download();

関数

sub WaitHitKey() {
    print shift."\n";
    my $key;
    while (not defined ($key = ReadKey(-1))) {
        Time::HiRes::sleep(0.1);
    }
}

  • 最終更新:2013-06-11 13:24:52

このWIKIを編集するにはパスワード入力が必要です

認証パスワード