Perl은 파이프 입력과 키보드 입력을 위해 다른 핸들을 사용하는 방법?

Question

파이프 처리중인 Perl 스크립트가 있습니다. 어떤 시점에서 스크립트를 일시 중지하고 사용자 키보드 입력을 요청합니다. my $input = <STDIN>;이 작동하지 않습니다. 파이프에서 다음 줄을 읽습니다. Perl이 파이프 입력과 키보드 입력에 다른 핸들을 사용하도록하려면 어떻게해야합니까?

Answer 1

Unix 플랫폼을 사용하는 경우 파일 핸들을 /dev/tty (또는 IO::Pty)으로 열 수 있습니다. TTY 작업의
좋은 예는 여기에서 예 "프로그램이 대화 형으로 실행중인 테스트 여부"에 있습니다 http://pleac.sourceforge.net/pleac_perl/userinterfaces.html

또한 Term::ReadKey를 통해 비밀번호 IO를하고 고려해야한다

은 (perlfaq8에 설명) - 나는 그것이 TTY에 연결 할 수있다 생각 STDIO 대신에 잘 모르겠다. 그렇지 않으면 this SO answer by brian d foy 끝에 나열된 TTY + Term :: ReadKey 솔루션을 사용하십시오.

다음은 예입니다.

It's not the best style (doesn't use 3-arg form of open, nor uses lexical filehandles) 그러나 작동해야합니다.

use autodie; # Yay! No "or die '' " 
use Term::ReadKey; 
open(TTYOUT, ">/dev/tty"); 
print TTYOUT "Password?: "; 
close(TTYOUT); 
open(TTY, "</dev/tty"); 
ReadMode('noecho'); 
$password = ReadLine(0, *TTY);