在Perl / Tkx中运行外部命令而不阻塞GUI(Windows)

Question

我正在尝试创建一个使用 Perl + Tkx 的接口，该接口可以在单击按钮时运行外部命令。

关于如何继续使用 Tk 模块的文档很多，但关于 Tkx 的文档很少。

我

仍然找到了一些这样的，但我无法让它适用于我的例子。特别是这些帖子包括使用 Tkx：：open、Tkx：：configure和 Tkx：：fileevent...但我还没有弄清楚如何将它们组合在一起。

这是我正在尝试的代码;当单击按钮并按一个键终止子进程时，Perl 会发出错误Free to wrong pool 16389d0 not 328e448 at C:/Perl/lib/Tcl.pm line 433.。

注意：我正在使用ActivePerl 5.12.2。

use Tkx;
use strict;
my $mw = Tkx::widget->new(".");
my $button=$mw->new_ttk__button(-text => "Run", -command => [&run_cmd, 0]);
$button->g_grid(-column => 0, -row => 0);
my $text = $mw->new_tk__text(-width => 32, -height => 16);
$text->configure(-state => "disabled");
$text->g_grid(-column => 0, -row => 1);
Tkx::MainLoop();
sub run_cmd {
    if (fork()==0) {
        system "pause";
        exit 0;
    }
}

谢谢

Answer 1

在花了将近 2 天的时间解决这个问题后，我终于找到了答案，这要归功于这里的一篇文章，其中包含我适应 Tkx 的 Tcl 代码。

解决方案是使用Tkx::open（与其表亲"读取"和"关闭"结合使用）。

下面的代码可以在不阻塞 GUI 的情况下正确执行命令，但在大多数情况下，我没有设法检索 STDOUT 和 STDERR（它适用于运行用 java 开发的应用程序，但不适用于 systeminfo 或 diff -v ）。

如果有人对此有见解，请随时发表评论。

谢谢

use Tkx;
use strict;
use Data::Dumper;
my ($stdout,$stderr);
my $mw = Tkx::widget->new(".");
my $button=$mw->new_ttk__button(-text => "Run", -command => [&run_command, "systeminfo"]);
$button->g_grid(-column => 0, -row => 0);
my $text = $mw->new_tk__text(-width => 32, -height => 16);
$text->insert("end", "Testn");
$text->g_grid(-column => 0, -row => 1);
Tkx::MainLoop();
print "STDOUT: $stdoutnn","-"x24,"nSTDERR: $stderrn";

sub run_command {
    my $cmd = shift;
    my $fh = Tkx::open("| $cmd", 'r') or die "$!";
    Tkx::fconfigure($fh, -blocking => 0);
    $stdout.=Tkx::read($fh);
    eval { Tkx::close($fh); };
    $stderr.=$@ if ($@);
}