1

GUIをブロックすることなく、Perl (Tkx モジュール) で Tk GUI から外部コマンドを実行することができました。

ただし、stderr と stdout からメッセージを取得するのは困難です。ほとんどのコマンドでは、変数$stdoutと$stderr.

私のコードには何が欠けていますか?

ありがとう

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

}
4

1 に答える 1

0

Linux ではCapture::Tiny、外部コマンドの出力を取得するために使用できます。

use strict;
use warnings;

use Capture::Tiny ();
use Tkx;

my ($stdout,$stderr);

my $mw = Tkx::widget->new(".");
my $button=$mw->new_ttk__button(-text => "Run", -command => [\&run_command, "echo aaa; eeee"]);
$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();

sub run_command {
    my $cmd = shift;
    my ($stdout, $stderr, $exit) = Capture::Tiny::capture {
        system($cmd);
    };
    print "STDOUT: '$stdout'\n";
    print "STDERR: '$stderr'\n";
    print "Exit code: '$exit'\n";
}

出力：

STDOUT: 'aaa
'
STDERR: 'sh: 1: eeee: not found
'
Exit code: '32512'

編集

GUI のブロックを回避するには、代わりに小さなラッパー スクリプトを作成します。たとえば、次のようにします。

$ cat wrapperl.pl
use strict;
use warnings;
use Capture::Tiny;

my $cmd = shift;

my ($stdout, $stderr, $exit) = Capture::Tiny::capture {
    system($cmd);
};
print "Child is waiting..\n";
sleep 2;
print "STDOUT: '$stdout'\n";
print "STDERR: '$stderr'\n";
print "Exit code: '$exit'\n";

次に使用します。

sub run_command {
    my $cmd = shift;
    my $fh;
    print "Master: calling command..\n";
    system ("wrapper.pl \"$cmd\" &");
    print "Master: returning to Tkx::Mainloop..\n";
}

出力：

Master: calling command..
Master: returning to Tkx::Mainloop..
Child is waiting..
STDOUT: 'aaa
'
STDERR: 'sh: 1: eeee: not found
'
Exit code: '32512'
于 2015-01-04T11:03:13.727 に答える