デモでパスワードが必要な時は

perl-casual #2 の ustream を聞いてると、makiさんが、Live Codingしているときに「パスワード見えちゃうなー」みたいなことを言っていたので。

たぶん、ご存知だとは思いますが、パスワードが必要なデモをする時は IO::Prompt 使うといいんじゃないでしょうか。

use IO::Prompt;
my $password = IO::Prompt::prompt("input password:", '-echo', '*');
print $password->{'value'};

打った文字は、-echo で指定した、"*" に変換されて表示されます。

Reviewによると、Windowsじゃ動かないようなのですが、Windowsの場合に使える代替モジュールは...なんかあるのかな？