如何让调用Chart::Gnuplot的Perl脚本在关闭窗口后终止进程？

我之前也碰到过一模一样的问题，本质原因是：默认情况下Chart::Gnuplot启动gnuplot子进程后，不会主动等待它终止——哪怕你关掉了绘图窗口，Perl父进程还在等着子进程的信号，导致没法正常退出。

最简单的解决办法是在创建Chart::Gnuplot对象时，添加wait => 1参数，让脚本主动等待gnuplot进程结束后再继续执行：

use strict;
use warnings;
use Chart::Gnuplot;

die "Linux check" if ( $^O ne 'linux' );

my $chart = Chart::Gnuplot->new(
    terminal => 'x11',
    wait     => 1,  # 新增：让脚本等待gnuplot进程退出
    title => {
        text => "GRAPH",
        font => "Arial, 20"
    },
    xlabel => {
        text   => "X AXIS",
        font   => "arial, 20",
        offset =>"0,-1"
    },
    ylabel => {
        text   => "Y AXIS",
        font   => "arial, 20",
        offset =>"-6,0"
    },
);

my $dataSet = Chart::Gnuplot::DataSet->new(
    xdata => \@x_data,
    ydata => \@y_data,
    style => "points",
);

$chart->plot2d($dataSet);
exit;

原理说明 #

wait => 1是Chart::Gnuplot提供的原生参数，它会让Perl进程在调用plot2d后进入阻塞状态，直到gnuplot子进程完全终止。当你关闭x11绘图窗口时，gnuplot进程会自动结束，Perl脚本收到信号后就会继续执行后续的exit语句，从而正常终止。

如果这个方法不生效，还可以尝试显式回收子进程，在plot2d之后添加以下代码：

# 获取gnuplot进程ID并等待它退出
my $gnuplot_pid = $chart->{_gnuplotPid};
waitpid($gnuplot_pid, 0) if defined $gnuplot_pid;

不过第一种方法是模块官方推荐的解决方案，更简洁可靠。

内容的提问来源于stack exchange，提问作者Pr0nboy