はてダラ 改造

やっぱり、パスワードの入力ではエコーバックしないでほしいよなぁ、ということでいまさらながら改造。要 Term::Prompt。

--- hw.pl.orig  2007-07-20 05:24:32.000000000 -0900
+++ hw.pl       2007-07-20 05:38:43.000000000 -0900
@@ -23,6 +23,7 @@
 use File::Basename;
 use Getopt::Std;
 use Digest::MD5 qw(md5_base64);
+use Term::Prompt;

 my $enable_encode = eval('use Encode; 1');

@@ -236,8 +237,7 @@

     # Ask username if not set.
     unless ($username) {
-        print "Username: ";
-        chomp($username = <STDIN>);
+        $username = prompt('x', 'Username:', '', '');
     }

     # If "cookie" flag is on, and cookie file exists, do not login.
@@ -257,8 +257,7 @@

     # Ask password if not set.
     unless ($password) {
-        print "Password: ";
-        chomp($password = <STDIN>);
+        $password = prompt('p', 'Password:', '', '');
     }

     my %form;