2

我正在尝试使用 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;
    }
}

谢谢

4

1 回答 1

1

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

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

下面的代码可以在不阻塞 GUI 的情况下正确执行命令，但在大多数情况下，我没有设法检索 STDOUT 和 STDERR（它适用于运行用 java 开发的应用程序，但不适用于systeminfoor 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", "Test\n");
$text->g_grid(-column => 0, -row => 1);

Tkx::MainLoop();
print "STDOUT: $stdout\n\n","-"x24,"\nSTDERR: $stderr\n";


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 ($@);

}
于 2014-12-31T10:47:30.117 回答