如何在 Perl Tk 中显示来自外部命令的文本？

Question

我必须在 Tk GUI 中显示一些打印语句（在运行 Perl 脚本时得到）。我尝试用图文并茂的方式展示一个例子，例如：

Initializing the parser ...

Running the parser ...

Enabling the codec ...

Connected to the socket ...

Sending ipv4 traffic into the code ...

事情是这样的。我不知道该怎么做。

Answer 1

您可以通过 Tk::ExecuteCommand

use Tk;
use Tk::ExecuteCommand;

$ec = tkinit()->ExecuteCommand(
     -command    => '',
     -entryWidth => 50,
     -height     => 10,
     -label      => '',
     -text       => 'Execute',
 )->pack;
 $ec->configure(-command => 'perl ./my_other_perl_script.pl');
 $ec->execute_command;
 $ec->update;

一般来说，您需要执行某种 IPC 来运行批处理并更新 Tk GUI。因为IO句柄可以在Tk中创建事件。 Tk::ExecuteCommand 隐藏了复杂性IPC。

否则，您可以设计自己的IPC方案。大概（粗略地说）管道、分叉和​​设置管道事件作为 IO 事件，创建只读日志的关键命令是：

$text->configure( -state => 'normal' );
$text->insert( end => $text_I_just_read_from_the_pipe );
$text->configure( -state => 'disabled' );