這篇文章給大家分享的是有關如何解決Perl在程序運行過程中重新開啟標準輸入的問題的內容。小編覺得挺實用的，因此分享給大家做個參考，一起跟隨小編過來看看吧。
遇見問題是，如何程序運行的時候已經將標準輸入使用”<“符號或者”|“符合在命令行定向為一個文件。
可是在程序的運行過程中希望從鍵盤得到輸入內容。
因為/dev/tty為當前進程的控制臺，STDIN 為當前的標準輸入. 如果重定向，例如：
perl script.pl <myfile.txt
STDIN 被指向 myfile.txt, 但是 /dev/tty 仍然來自于控制終端。所有的Unix都是這樣，不單單是指這個perl。
那么解決方案：
#!/usr/bin/perl -w
use strict;
$| = 1;
my $stream;
while (<>) {
$stream .= $_;
}
open STDIN, "/dev/tty" or die;
print "Do you want to process the stream? ";
my $ans = <STDIN>;
chomp $ans;
print "Got '$ans'\n";
print "stream = $stream";
#...
exit;
__END__測試：
$ echo foo | ./stdin Do you want to process the stream? yes Got 'yes' stream = foo
發現標準輸入重新指向鍵盤。問題解決。
感謝各位的閱讀！關于“如何解決Perl在程序運行過程中重新開啟標準輸入的問題”這篇文章就分享到這里了，希望以上內容可以對大家有一定的幫助，讓大家可以學到更多知識，如果覺得文章不錯，可以把它分享出去讓更多的人看到吧！
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
