読者です 読者をやめる 読者になる 読者になる

Perl - CPAN - Term::ReadKeyパッケージ

ここに掲載するものは、塚本さんにパッケージ化して頂いているZaurus用Perl 5.6.1に追加でインストールするPerlライブラリのTerm::ReadKeyである。
ソースはここからダウンロードし、dev-img-1.3でセルフコンパイルした。
gcc 2.95はコードオプティマイズにバグを含んでいると言う話を聞いているので、Makefileからオプティマイズオプションを外してビルドした。

download:lib-perl-term-readkey_2.30-1_arm.ipk

手始めの使い方は以下の通りである。

#パスワードの入力
use Term::ReadKey;
ReadMode(1);
print "userid:";
$user = ReadLine(0);
chomp($user);
ReadMode(2);
print "password:";
$pass = ReadLine(0);
print "\n";
chomp($pass);
ReadMode(0);
print "userid=$user\n";
print "password=$pass\n";
#タイムアウト付きキー入力
use Term::ReadKey;
select(STDOUT);
$| = 1; # $OUTPUT_AUTOFLUSH
print "hit any key while 3 seconds:";
$| = 0;
ReadMode(4);
$c = ReadKey(3);
ReadMode(0);
print "$c\n";

Term::ReadKeyの詳細は以下をご覧頂きたい。
英語:http://search.cpan.org/~jstowe/TermReadKey-2.30/ReadKey.pm