5

子 perl スクリプトを呼び出し、パイプを介して対話するマスター perl スクリプトを作成しようとしています。

私はマスターのためにこのコードを書いています:

#!/usr/bin/env perl

use strict;
use warnings;

use IPC::Open3;

my @children;

for my $i ( 0 .. 4 ) {
    print "Master: " . $i . ", I summon you\n";

    $children[$i] = {};

    $children[$i]->{'pid'} = open3( my $CH_IN, my $CH_OUT, my $CH_ERR, 'perl child.pl -i ' . $i );

    $children[$i]->{'_STDIN'}  = $CH_IN;
    $children[$i]->{'_STDOUT'} = $CH_OUT;
    $children[$i]->{'_STDERR'} = $CH_ERR;

    my $line = readline $children[$i]->{'_STDOUT'};
    print $line ;

}

print "Master: Go fetch me the sacred crown\n";

for my $i ( 0 .. 4 ) {
    $children[$i]->{'_STDIN'}->write("fetch the sacred crown\n");
    my $line = readline $children[$i]->{'_STDIN'};
    print $line ;
}

print "Master: Thanks. Now die!!!\n";

for my $i ( 0 .. 4 ) {
    $children[$i]->{'_STDIN'}->write("die !!\n");
    my $line = readline $children[$i]->{'_STDIN'};
    print $line ;
}

そして、これは子供のためのものです:

#!/usr/bin/env perl

use Getopt::Long ;

my $cmdline_id ;

GetOptions ('i=s' => \$cmdline_id) ;

my $id = $cmdline_id ;

exit 1 if !defined $id ;

print "I am $id, and I am awaken\n" ;

while(<STDIN>) {
    print STDOUT $id . ': Master ask me to ' . $_ ;

    if ($_ =~ /exit/oi) {
        exit 0 ;
    }
}

しかし、マスターを起動すると、彼は子供からの応答を読みながらハングアップしました。

私が何を間違えたのか、そしてその理由について何か考えはありますか?

4

2 に答える 2

4

あなたはバッファリングに苦しんでいます。

$|=1出力バッファがいっぱいになるのを待たずに子が印刷できるようにするには、子プロセスの開始近くで言います。

于 2012-06-29T16:23:20.540 に答える
0

補足として、3 番目の引数に undef を渡すと (現在のように)、希望どおりの結果が得られません。Symbol の を使用して変数を初期化する必要がありますgensym。

use Symbol qw( gensym );

my %child;
$child{pid} = open3(
    $child{'_STDIN' } = gensym,
    $child{'_STDOUT'} = gensym,
    $child{'_STDERR'} = gensym,
    'perl', 'child.pl', '-i' => $i
);

$children[$i] = \%child;
于 2012-06-29T18:55:40.883 に答える