我有以下函数使用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");
}
}
}
}
答案 0 :(得分:1)
在关闭该命令的输入流以告诉命令不再需要输入之前,外部命令可能不会产生任何输出。 呼叫
close GPW;
在您上一次print GPW ...
声明之后。