The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
–¼‘O
    Term::ReadPassword::Win32 - ƒ†[ƒU[‚ɃpƒXƒ[ƒh‚ðq‚Ë‚é (Win32 —p)

ŠT—v
      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[‚ɑ΂µ‚Ä
    ƒpƒXƒ[ƒh‚ðq‚Ë‚Ü‚·B

    ƒ†[ƒU[‚ɑ΂µ‚ăpƒXƒ[ƒh‚Ì“ü—Í‚ð‹‚ß‚é‚ɂ́ATerm::ReadPassword ‚ð
    Žg‚¤‚Ì‚ª‚æ‚¢•û–@‚Å‚·‚ªATerm::ReadPassword ‚Í Windows —p‚Ì ActivePerl
    ‚Å‚Í“®‚©‚È‚¢‚Æ‚¢‚¤–â‘肪‚ ‚邽‚߁A‚»‚ê‚ð‰ðŒˆ‚·‚邽‚ß‚É‚±‚̃‚ƒWƒ…[ƒ‹‚ð
    ‘‚«‚Ü‚µ‚½B

    ‚±‚̃‚ƒWƒ…[ƒ‹‚́AWindows ‚Æ Unix ‚Ì‚Ç‚¿‚ç‚Å‚àŽg‚¦‚Ü‚·B Windows
    ‚ÅŽg‚¤‚ɂ́AWin32::* ‚̃‚ƒWƒ…[ƒ‹‚ª•K—v‚Å‚·B Unix ‚ÅŽg‚¤‚Æ‚«‚́A
    ‚±‚̃‚ƒWƒ…[ƒ‹‚Í Term::ReadPassword ‚ɑ΂·‚郉ƒbƒp[‚Æ‚µ‚Ä“®ì‚µ‚Ü‚·B

    Term::ReadPassword::Win32::read_password ŠÖ”‚́A
    Term::ReadPassword::read_password ŠÖ”‚Æ‚Ù‚Æ‚ñ‚Ç“¯‚¶‚悤‚É“®ì‚µ‚Ü‚·B

    Å‰‚Æ‚Q”Ԗڂ̃pƒ‰ƒ[ƒ^‚́A‘S‚­“¯‚¶‚Å‚·BÅ‰‚̃pƒ‰ƒ[ƒ^‚́Aƒvƒƒ“ƒvƒg
    ‚Æ‚µ‚Ä•\Ž¦‚·‚镶Žš—ñ‚ðŽw’肵A‚Q”Ԗڂ̃pƒ‰ƒ[ƒ^‚́Aƒ^ƒCƒ€ƒAƒEƒg’l‚ð•b’P
    ˆÊ ‚ÅŽw’肵‚Ü‚·B

    ‚R”Ԗڂ̃pƒ‰ƒ[ƒ^‚́A­XˆÙ‚È‚Á‚Ä‚¢‚Ü‚·B

    ‚R”Ԗڂ̃pƒ‰ƒ[ƒ^‚ª 0 ‚Ì‚Æ‚«‚́ACtrl+C ‚Í‘¼‚Ì•¶Žš‚Æ‘S‚­“¯‚¶‚悤‚ɁA
    “ü—̓oƒbƒtƒ@‚ÉŠi”[‚³‚ê‚Ü‚·B‚±‚ê‚Í Term::ReadPassword::read_password ‚Ì
    ‚R”Ԗڂ̃pƒ‰ƒ[ƒ^‚É false ‚ðŽw’肵‚½‚Æ‚«‚Ì“®ì‚Æ“¯‚¶‚Å‚·B

    ‚R”Ԗڂ̃pƒ‰ƒ[ƒ^‚ª 1 ‚Ì‚Æ‚«‚́ACtrl+C ‚Ü‚½‚Í Esc ‚ª“ü—Í‚³‚ê‚é‚Æ
    ƒpƒXƒ[ƒh‚Ì“ü—Í‚ðI—¹‚µ‚Ü‚·BTerm::ReadPassword::read_password ‚Ì
    ‚R”Ԗڂ̃pƒ‰ƒ[ƒ^‚É true ‚ðŽw’肵‚½‚Æ‚«‚Ì“®ì‚ÆŽ—‚Ä‚¢‚Ü‚·‚ªAEsc ‚Å‚à
    “ü—Í‚ðI—¹‚Å‚«‚é“_‚ªˆÙ‚È‚Á‚Ä‚¢‚Ü‚·B

    ‚R”Ԗڂ̃pƒ‰ƒ[ƒ^‚ª 2 ‚Ì‚Æ‚«‚́AEsc ‚ª“ü—Í‚³‚ê‚é‚ƃpƒXƒ[ƒh‚Ì“ü—Í‚ð
    I—¹‚µ‚Ü‚·BCtrl+C ‚ª“ü—Í‚³‚ꂽê‡‚́A‚¨‚»‚ç‚­ƒvƒƒOƒ‰ƒ€‚ª’†’f
    ‚³‚ê‚Ü‚·B

    Ctrl+U ‚ª“ü—Í‚³‚ê‚é‚ƁA“ü—̓oƒbƒtƒ@‚̓NƒŠƒA‚³‚ê‚Ü‚·B

ƒoƒO
    ƒ}ƒ‹ƒ`ƒoƒCƒg•¶Žš‚͐³‚µ‚­ˆµ‚í‚ê‚Ü‚¹‚ñBiƒ}ƒ‹ƒ`ƒoƒCƒg•¶Žš‚ð‚P•¶Žšíœ‚·‚é
    ê‡‚É BackSpace ‚𕡐”‰ñ“ü—Í‚·‚é•K—v‚ª‚ ‚è‚Ü‚·Bj

ŽQl
    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