Perl 關於在程式運行過程中重新開啟標準輸入的問題

標籤：程式   重新   perl   標準輸入   stdin   

遇見問題是，如何程式啟動並執行時候已經將標準輸入使用”<“符號或者”|“符合在命令列定向為一個檔案。

可是在程式的運行過程中希望從鍵盤得到輸入內容。

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

perl script.pl <myfile.txt

STDIN 被指向 myfile.txt, 但是 /dev/tty 仍然來自於控制終端。所有的Unix都是這樣，不單單是指這個perl。

那麼解決方案：

#!/usr/bin/perl -wuse 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? yesGot ‘yes‘stream = foo

發現標準輸入重新指向鍵盤。問題解決。祝君好運。

本文出自 “EIT流浪漢” 部落格，請務必保留此出處http://zicowarn.blog.51cto.com/3815716/1708173

Perl 關於在程式運行過程中重新開啟標準輸入的問題