Perl open3读取gnuplot块的管道句柄

时间:2012-03-16 14:17:28

标签: perl ipc gnuplot

我有以下函数使用perl + gnuplot绘制数据。输入数据文件非常多,其中大约一半产生无效范围,我想检测并删除那些坏文件。该函数只处理单个文件,我无法读取任何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");
      }
    }
  }
}

1 个答案:

答案 0 :(得分:1)

在关闭该命令的输入流以告诉命令不再需要输入之前,外部命令可能不会产生任何输出。 呼叫

close GPW;

在您上一次print GPW ...声明之后。