Error(code 12): cannot unlink log/lock: No such file or directory
キーボードから1文字読み込む (module)Term-ReadKey
back
■ 1. 文字(列)入力後リターン押下させる場合
<STDIN> や read で STDIN から読み込む
chomp($str = <STDIN>);
■ 2. キーをタイプした瞬間に読み込む
Term::ReadKey モジュールを使う
http://search.cpan.org/~jstowe/TermReadKey-2.21/
タイプしたキーの文字コード(10進/16進)を出力する
-------------------------------
use Term::ReadKey;
print "^C to quit\n";
ReadMode 3;
while (1) {
$char = ReadKey();
last if not defined $char;
printf("%02d (0x%02X)", ord $char, ord $char);
print "\n";
}
-------------------------------
back