Perl 脚本在信号处理程序中重新打开文件

Question

我有这个 perl 脚本:

#!/bin/perl
use strict;
use warnings;
use Time::HiRes qw(usleep);
my $fd;
sub reopen {
    open $fd, ">>", "file.log" or die $!;
}
$SIG{USR1} = \&reopen;
reopen();
while(1){
    syswrite $fd, time . " ($$): message\n";
    usleep(100000);
}

我在信号处理程序中重新打开文件句柄。安全吗？

Answer 1

是^[1]。从 5.8.1 开始，实际的信号处理程序只需设置一个标志，说明已收到信号^[2]。该标志在语句之间进行检查。系统调用(例如 usleep)在被信号中断时返回错误 $!{EINTR}，允许检查标志。

信号会中断usleep，reopen会在下一条语句(syswrite^[3]) 被评估。

---

1. 嗯，你可能想做 local ($!, $^E); 以防被中断的代码使用这些。
2. 除非您禁用“安全信号”。
3. 为什么使用 syswrite 而不是 print？是为了避免缓冲吗？使用 $fd->autoflush(1); 来做到这一点。