问为什么我的程序在使用Proc::Daemon时不能写入文件？

EN

首先，您需要一个分号来终止第9行的赋值：

$SIG{TERM} = sub { $continue = 0 ; };

在我添加它之前，您的程序甚至不会运行，所以我猜您在脚本中已经有了它，但在这里遗漏了它。

除此之外，我怀疑Guss是对的，你有权限问题。这里有一个检查的方法。打开一个单独的终端并运行top。启动守护程序脚本，您将看到一个Perl进程。如果问题出在权限上，您很快就会看到Perl进程消失了。脚本会在子例程中终止，但您试图显示有用的错误消息的尝试永远不会出现，因为此时守护进程无法访问您的终端。

更改此测试的一种快捷方法是在子例程中将die更改为warn。如果这样做，守护进程将永远继续运行(检查运行top的终端以确认这一点)。但是，如果问题出在权限上，您仍然不会看到创建或写入文件。

编辑:是的，权限问题+无法访问STDERR =一个死掉的、静默的守护进程。尝试此版本，但请确保您可以写入您为STDERR切换的日志：

Proc::Daemon::Init();
my $continue = 1;
$SIG{TERM} = sub { $continue = 0 ; };

while ( $continue ) {
    sleep(5);
    greeting();
}

sub greeting {
    open STDERR, '>>', '/Users/telemachus/log'
        or die "Can't reopen STDERR to log: $!";
    open my $fh, '>>', '/usr/local/foo'
        or warn "Can't open /usr/local/foo for writing: $!";
    print $fh "hello word\n";
    close $fh;
}

你可能会在你的日志中看到很多这样的东西：

无法打开foo进行写入:权限在后台进程第21行被拒绝。在守护进程行22的已关闭文件句柄$fh上使用print()。

你的脚本在我看来没问题。最有可能的问题是文件权限-确保您对应该创建文件的目录具有写权限，或者如果文件已经存在，则您对文件本身具有写权限。

我在我的机器上运行你的脚本，它工作得很好。