這篇文章給大家分享的是有關(guān)如何解決Perl在程序運行過程中重新開啟標準輸入的問題的內(nèi)容。小編覺得挺實用的，因此分享給大家做個參考，一起跟隨小編過來看看吧。

夏津網(wǎng)站制作公司哪家好，找創(chuàng)新互聯(lián)！從網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、響應(yīng)式網(wǎng)站等網(wǎng)站項目制作，到程序開發(fā)，運營維護。創(chuàng)新互聯(lián)于2013年創(chuàng)立到現(xiàn)在10年的時間，我們擁有了豐富的建站經(jīng)驗和運維經(jīng)驗，來保證我們的工作的順利進行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)。

遇見問題是，如何程序運行的時候已經(jīng)將標準輸入使用”<“符號或者”|“符合在命令行定向為一個文件。

可是在程序的運行過程中希望從鍵盤得到輸入內(nèi)容。

因為/dev/tty為當前進程的控制臺，STDIN 為當前的標準輸入. 如果重定向，例如：

perl script.pl 
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 = ;
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
發(fā)現(xiàn)標準輸入重新指向鍵盤。問題解決。
感謝各位的閱讀！關(guān)于“如何解決Perl在程序運行過程中重新開啟標準輸入的問題”這篇文章就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，讓大家可以學(xué)到更多知識，如果覺得文章不錯，可以把它分享出去讓更多的人看到吧！
            

            網(wǎng)頁題目：如何解決Perl在程序運行過程中重新開啟標準輸入的問題-創(chuàng)新互聯(lián)            

            網(wǎng)頁鏈接：http://weahome.cn/article/desjsj.html