–¼‘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