This document is hosted by
Term::Getch - ReadKey()ライクなインターフェースのMSWin32用の代替
use Term::Getch;
while(1) {
my $c = getch();
print "Input: $c\r";
}
これはすべてのActivePerlでTerm::ReadKeyを動かそうとしてかなわなかったWin32ユーザーのためのモジュールです。 もしかすると誰か動かせた人が要るのかも知れませんし、そうでないかもしれませんが、私が今日Term::ReadKeyを動かそうとしてとんでもない時間を費やしてしまったのは確かです。 それで、終いには絶望のあまり、delimaのためのポータブルソリューションというちょっとした企てをハックしあげたわけです。 Term::Getchをごらんあれ;
これはgetch()という一つだけの関数をエクスポートします。 オプションでエクスポートできるのはascii()で、これは渡されたすべての文字のASCIIキャラクタコードを返します。 （getch()はchr()で与えられたASCIIキャラクタを返します。）
getch()はもしあなたがMSWin32ユーザーであれば、Win32::Consoleがインストールされていることを要求します。 MSWin32ユーザーでなければ、eval()ステートメント内でTerm::ReadKeyを採用しようとします。
getch()はノンブロッキング・リード・コールです。 もし待ち状態の文字がなければ、undefを返します。 そうでなければ、（キーが上げられた時点で）ASCIIキャラクタを返します。
getch()
ascii()
Note: これは作者のWindows98環境でのみ試験されています。 その他のシステムでもうまく動くか確信はありません。 もしあなたのシステム上ではうまく動作しなくて、あなたがMS Windowsユーザではなければ、Term::ReadKeyをダウンロードしてあなたのシステム上でコンパイルしてみてください。 こちらが期待しているより、うまく動く可能性もあります。 さて、ご静聴、ありがとうございました。 うまくいきます様に！
Josiah Bryan <jdb@wcoil.com>
Copyright (c) 2000 Josiah Bryan. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
The Term::Getch and related modules are free software. THEY COME WITHOUT WARRANTY OF ANY KIND.
Term::Getchの最新版は次のURLから取得することができます。 http://www.josiah.countystart.com/modules/get.pl?getch:pod
perl(1), Win32::Console, Term::ReadKey
Makio Tsukamoto, tsukamoto@gmail.com