[原创]perl Daemon示例

realm

my $p;
    die "fork: $!" if (!defined($p = fork()));
    exit(0) unless ($p == 0);
    chdir("/");
    open(STDIN, "/dev/null") or die "/dev/null: $!";
    open(STDOUT, ">/dev/null") or die "/dev/null: $!";
    # Close all other fds.
    for (my $fd = 3; $fd < POSIX::sysconf(POSIX::_SC_OPEN_MAX); ++$fd)
    {
        POSIX::close($fd);
    }
    POSIX::setsid() or die "setsid: $!";
    die "fork: $!" if (!defined($p = fork()));
    exit(0) if ($p != 0);
    open(STDERR, ">&STDOUT") or die "dup: $!";

daemon程序应该尽可能在前面做，以免已经打开的fd在变成daemon得过程中又被关闭。