如何將文本輸出到終端的perl tk文本框？

Question

對不起，模糊的問題。

我有一個perl gui，內置於linux中的tk。我已經在其中建立了一個文本框。我希望將perl腳本的輸出顯示在文本框中，包括運行perl腳本時顯示在終端上的錯誤或警告。怎麼做 ？

Answer 1

，你可以：

打開STDERR和STDOUT在內存中的文本文件（必須先關閉它）：

close STDOUT; 
open STDOUT, '>', \$variable or die "Can't open STDOUT: $!"; 
close STDERR; 
open STDERR, '>', \$variable or die "Can't open STDERR: $!"; 

更多關於這可能在open - perldoc.perl.org

或掛鉤被發現警告和死亡陳述：

$SIG{__WARN__} = sub { PrintThingsToMyLogWin(@_); 1 }; 
$SIG{__DIE__} = sub { PrintThingsToMyLogWin(@_); 1 }; 

但那不會允許您捕捉標準的打印語句。

任何方式，找到解決方案的好運氣，並不要猶豫，告訴我們，如果你自己找到它。