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