perl - 如何在 Perl 中的 x 秒后创建中断？

Question

让我用代码示例解释任务:

#!/usr/bin/perl
use strict;
use warnings;

my $t = 3;

eval {
    local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required
    print "Start $t\n";
    alarm(10);
    sleep($t);  # instead of this I have some data that collect code
    alarm(0);
    print "done with $t\n";
};

if ($@) {
    die unless $@ eq "alarm\n";
    print "timeout\n";
}

代替 sleep 我有一些将数据推送到数组的代码。数组将保证在 `x 秒内由所需数据填充。

问题:如何在 x 秒后打印数组，而不使用 sleep(非阻塞方式)？

据我所知，在 perl 中设置计时器的最简单方法是使用 $SIG{ALRM}。但是如果我不需要计时器(不能使用sleep)怎么办，我只需要设置一个必须在预定义的秒数后运行的中断？也许我应该使用 SIGINT 来完成这项任务？

感谢任何帮助。

Answer 1

要创建您自己的中断，您需要两个执行线程。一种方法是启动一个子进程，该子进程将在满足某些条件时向其父进程发出信号。

$SIG{USR1} = \&code_to_run_after_interrupt;
my $ppid = $$;          # process id of parent
if (fork() == 0) {
    # child process
    sleep 15;
    kill 'USR1', $ppid;
    exit;
}
... main execution thread

fork 调用 15 秒后，您的主脚本将停止其正在执行的操作，在名为 code_to_run_after_interrupt 的子例程中执行代码，然后恢复主线程执行.

(我在这里使用 SIGUSR1 因为处理 SIGINT 可能会让你无法使用 Ctrl-C 来停止你的程序)