¼O
Term::ReadPassword::Win32 - [U[ÉpX[hðqËé (Win32 p)
Tv
use Term::ReadPassword::Win32;
while (1) {
my $password = read_password('password: ');
redo unless defined $password;
if ($password eq 'flubber') {
print "Access granted.\n";
last;
} else {
print "Access denied.\n";
redo;
}
}
à¾
±ÌW
[ÍATerm::ReadPassword Ư¶æ¤ÉA[U[ÉεÄ
pX[hðqËÜ·B
[U[ÉεÄpX[hÌüÍðßéÉÍATerm::ReadPassword ð
g¤Ìªæ¢û@Å·ªATerm::ReadPassword Í Windows pÌ ActivePerl
ÅÍ®©È¢Æ¢¤âèª é½ßA»êðð·é½ßɱÌW
[ð
«Üµ½B
±ÌW
[ÍAWindows Æ Unix ÌÇ¿çÅàg¦Ü·B Windows
Åg¤ÉÍAWin32::* ÌW
[ªKvÅ·B Unix Åg¤Æ«ÍA
±ÌW
[Í Term::ReadPassword Éηébp[ƵĮìµÜ·B
Term::ReadPassword::Win32::read_password ÖÍA
Term::ReadPassword::read_password ÖÆÙÆñǯ¶æ¤É®ìµÜ·B
ÅÆQÔÚÌp[^ÍAS¯¶Å·BÅÌp[^ÍAvvg
ƵÄ\¦·é¶ñðwèµAQÔÚÌp[^ÍA^CAEglðbP
Ê ÅwèµÜ·B
RÔÚÌp[^ÍAXÙÈÁĢܷB
RÔÚÌp[^ª 0 ÌÆ«ÍACtrl+C ͼ̶ÆS¯¶æ¤ÉA
üÍobt@Éi[³êÜ·B±êÍ Term::ReadPassword::read_password Ì
RÔÚÌp[^É false ðw赽ƫ̮ìƯ¶Å·B
RÔÚÌp[^ª 1 ÌÆ«ÍACtrl+C Ü½Í Esc ªüͳêéÆ
pX[hÌüÍðI¹µÜ·BTerm::ReadPassword::read_password Ì
RÔÚÌp[^É true ðw赽ƫ̮ìÆĢܷªAEsc Åà
üÍðI¹Å«é_ªÙÈÁĢܷB
RÔÚÌp[^ª 2 ÌÆ«ÍAEsc ªüͳêéÆpX[hÌüÍð
I¹µÜ·BCtrl+C ªüͳê½êÍA¨»çvOªf
³êÜ·B
Ctrl+U ªüͳêéÆAüÍobt@ÍNA³êÜ·B
oO
}`oCg¶Í³µµíêܹñBi}`oCg¶ðP¶í·é
êÉ BackSpace ð¡ñüÍ·éKvª èÜ·Bj
Ql
Term::ReadPassword, Term::Getch
ì
Copyright (C) 2005 Ken Takata <kentkt@anet.ne.jp>
This library is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
_E[h
ÅVÅÍA http://webs.to/ken/ ©çüèÅ«Ü·B