Question

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

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

我仍然找到了一些像this one但我无法让它适用于我的例子。特别是这些帖子包括使用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天后，我终于找到了答案，感谢帖子here以及我改编为Tkx的Tcl代码。

解决方案是使用Tkx::open（与其表兄弟“读”和“关闭”结合使用。

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

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

由于

diff -v

在Perl / Tkx中运行外部命令而不阻止GUI（Windows）

1 个答案: