パスワードなので、●●●●●と表示したい

こんにちは。Perlを勉強中です。ご回答よろしくお願いいたします。

test.plを作成しました。
実行方法は、引数（userid）をつけて実行します。

perl test.pl userid　すると、パスワードをきいてきて、
passwd:●●●●●　　入力した文字が　$passwdに格納され、表示は●で表示されるようにしたいのですがどうしたらよいでしょうか？


なお、引数（userid)の部分は、$userid = shift @ARGV;　を使っています。
$useridと$passwdで認証をしたいと思っています。

どうぞよろしくお願いいたします。

No.1 回答者： BLUEPIXY 回答日時： 2006/07/11 20:16

エコー文字を置き換えるのは、ちょっとわかりませんが

CPAN モジュールのTerm::ReadKey モジュールを使うとecho off(入力した文字を表示しない状態) にできます。
----------------------------------------------------------------
use Term::ReadKey;

ReadMode('noecho');#エコーしない

print "password:";
$password = ReadLine(0);
chomp $password;

ReadMode('normal');# 元に戻す

この回答へのお礼

早々、お教え頂きありがとうございました。
十分使えますね！
今後ともよろしくお願い致します。

お礼日時：2006/07/13 21:36