在 Linux 中启动和停止 Perl 守护程序答案

【问题标题】：Starting and Stopping Perl Daemon in Linux在 Linux 中启动和停止 Perl 守护程序
【发布时间】：2011-09-20 08:17:23
【问题描述】：

我一直在为 linux 开发一个 perl 守护进程，这是它的框架：

#!/usr/bin/env perl
use File::Copy;
use Socket;
use Sys::Hostname;
use POSIX qw(setsid);
use Env;

use Sys::Info::Constants qw( :device_cpu );

my $daemonName = 'proc';

my $proc;
my $error;
my $file = "Proc.pl";
my $pidfile = ">/var/run/proc.pid";
my $pid2check = "/var/run/proc.pid";
my $pid;


if (!$error) {
    LogMessage("$daemonName  : PID $proc : Begin");
}

if (!$error) {
    LogMessage("$daemonName  : PID $proc : Writing pid information to $pidfile");
    print FILE $proc . "\n";
    close (FILE);
}

$SLEEP_TIME = 5; # seconds

#Main loop of Daemon
while (!$error) {
    sleep($SLEEP_TIME);

}


if ($error) {
    LogMessage("$file : PID $proc : Error $error");
}

LogMessage("$file : PID $proc : END");

exit(0);


sub Daemonize {

if (!(chdir '/')) {
    $error .= "Can't chdir to /: $!";
}
if (!(umask 0)) {
    $error .= "Unable to umask 0";
}

unless (open STDIN, '/dev/null') {
    $error .= "Can't read /dev/null: $!";
}

open(OLD_OUT,">&STDOUT");  

#All print statments will now be sent to our log file
unless (open STDOUT, '>>/var/log/proc.log') {
    $error .= "Can't read /var/log/proc.log: $!";
}
#All error messages will now be sent to our log file
unless (open STDERR, '>>/var/log/proc.log') {
    $error .= "Can't write to /var/log/proc.log: $!";
}

defined($pid = fork);
#Exit if $pid exists (parent)

if ($pid)
{
    print OLD_OUT "Service successfully installed.\n";
    exit(0);
}

#As Child
setsid();
$proc = $$;
return ($proc);
 }


#Prints log messages
sub LogMessage {
my $message = $_[0];
print localtime() . " $message\n";
}

我对 perl 比较陌生，我想知道启动和停止这个守护进程的最简单方法是什么？另外，我将如何检查以确保没有它的实例已经在运行？

【问题讨论】：

标签： linux perl daemon

【解决方案1】：

一般来说，守护进程是通过double fork 方法完成的。这是常见的习惯用法，有libraries 可以为您执行此操作，您应该考虑使用。 pid 或 lockfile 通常用于确保一次只运行一个实例。

如果您打算将其用作系统进程，也可以使用 upstart 或 supervisord 之类的东西来为您进行进程管理和“一次只做一个”的事情。

【讨论】：