溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
這篇文章給大家分享的是有關如何解決Perl在程序運行過程中重新開啟標準輸入的問題的內(nèi)容。小編覺得挺實用的，因此分享給大家做個參考，一起跟隨小編過來看看吧。
遇見問題是，如何程序運行的時候已經(jīng)將標準輸入使用”<“符號或者”|“符合在命令行定向為一個文件。
可是在程序的運行過程中希望從鍵盤得到輸入內(nèi)容。
因為/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
發(fā)現(xiàn)標準輸入重新指向鍵盤。問題解決。
感謝各位的閱讀！關于“如何解決Perl在程序運行過程中重新開啟標準輸入的問題”這篇文章就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，讓大家可以學到更多知識，如果覺得文章不錯，可以把它分享出去讓更多的人看到吧！
免責聲明：本站發(fā)布的內(nèi)容（圖片、視頻和文字）以原創(chuàng)、轉(zhuǎn)載和分享為主，文章觀點不代表本網(wǎng)站立場，如果涉及侵權請聯(lián)系站長郵箱：is@yisu.com進行舉報，并提供相關證據(jù)，一經(jīng)查實，將立刻刪除涉嫌侵權內(nèi)容。
