如何从终端给perl tk文本框输出文本？

Question

对于模糊的问题，我们深表歉意。

我在linux中使用tk内置了一个perl gui。我在其中构建了一个文本框。我想在文本框中显示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 };

但是这不允许你捕捉标准的印刷语句。

任何方式，祝你好运找到解决方案，如果你自己找到它，请不要犹豫告诉我们。