Perl open3 gnuplotブロックのパイプハンドルを読み取る

Question

私はperl + gnuplotを使ってデータをプロットする次の関数を持っています。入力データファイルは非常に多く、約半数が無効な範囲を生成しています。これらの不良ファイルを検出して削除したいのです。この関数は1つのファイルだけを処理するので、gnuplotの出力を読み取ることができませんでした。私は無駄にGPR/GPEを読んでみました。

sub plot_file { 
    my $filename = shift; 
    if ($filename =~ m![^\/]+/([^.]+)\.([^.]+)\.([^.]+)!) { 
    my ($node, $box, $metric) = ($1, $2, $3); 
    my $plot_file = "plots/$node.$box.$metric.eps"; 
    if ($metric !~ /Sqr/) { 
     open3(\*GPW, \*GPR, \*GPE, "$gnuplot") or die "no gnuplot"; 
     print GPW "set terminal postscript 'Consola' 12\n"; 
     print GPW "NODE  = '$node'\n"; 
     print GPW "BOX  = '$box'\n"; 
     print GPW "METRIC = '$metric'\n"; 
     print GPW "DATA_FILE = '$filename'\n"; 
     print GPW "OUT_FILE = '$plot_file'\n"; 
     print GPW "set size 1.0,0.5\n"; 
     print GPW "set title BOX.' - '.NODE.' - '.METRIC\n"; 
     print GPW "set output OUT_FILE\n"; 
     print GPW "plot DATA_FILE using 1:2 with lines notitle\n"; 
     my $skip; 
     while (<GPE>) { 
     if (/Warning/) { 
      system ("rm $plot_file"); 
      $skip = 1; 
      last; 
     } 
     } 
     if (not $skip) { 
     system ("epstopdf $plot_file"); 
     } 
    } 
    } 
} 

Answer 1

外部コマンドは、そのコマンドへの入力ストリームを閉じて、それ以上入力がないことをコマンドに伝えるまで、おそらく出力を生成しません。あなたの最後の文の後print GPW ... コール

close GPW; 

。