キー入力をカウントするプログラム

質問

キーボードのいくつかに変数を割り振って、分類つきのカウンターを作りたいのですが、Perlでは、どのようにプログラムを作ればいいですか。
キー入力を読み込む関数と使いかた（ヒントでも）を教えて下さい。

プログラム電卓では、BASICで
10 A$=INKEY$
20 IF A$="B" THEN K(1)=K(1)+1
のようにして、作ってたのですが。

回答No.1

maura · ベストアンサー

Windowsのコマンドプロンプトより、
> perl readkey.pl
と実行

Term::ReadKeyをインストール済みとする

q を押すまで終了しないテストプログラム
他のキーを押すと　「Got key: 」の後に押したキーが
出ます

ReadKey.pl
#!/usr/bin/perl
use Term::ReadKey;
print "Press 'q' to quit this test.\n";
ReadMode 5; # Turns off controls keys
while (1) {
while (not defined ($key = ReadKey(-1))) {
print "Didn't get a key. Sleeping 1 second.\015\012";
sleep (1);
}
print "Got key: $key\015\012";
($key eq 'q') and last;
}
ReadMode 0; # Reset tty mode before exiting
exit;