Perl 펄] 암호, 패스워드 입력 받기; 글자 화면에 보이지 않게; Input Password

#!/usr/bin/perl
use strict; use warnings;

use Term::ReadKey;

  print "암호를 입력하세요 (화면에 나타나지 않음).\n";
  my $pw;


  for (;;) { # 암호 입력할 때까지 무한루프
    if ($pw = getPassword()) {
      print "입력받은 암호: [$pw] (실제 프로그램에서는 이런 부분이 있으면 안됨)\n";
      last; # 루프 탈출
    } else {
      print "암호를 입력해 주세요.\n";
    }
  }



# 보이지 않게 패스워드 입력 받기 함수
sub getPassword {
  ReadMode 'noecho';
  my $s = <STDIN>;
  ReadMode 'normal';

  chomp($s); # 입력받은 문자열 끝의 개행문자 제거
  return $s;
}