怎么用perl写个守护程序呢？

foretell

UID: 36502
帖子: 57
积分: 131
在线时间: 4 小时

1^# foretell 发表于 2007-12-09 21:36

怎么用perl写个守护程序呢？

lvlfforever

UID: 9630
帖子: 160
积分: 368
在线时间: 1 天 11 小时

2^# lvlfforever 发表于 2007-12-10 17:43

参考一下perl 网络编程里的一段代码：

sub become_daemon {
  die "Can't fork" unless defined (my $child = fork);
  exit 0 if $child; # parent dies;
  setsid();    # become session leader
  open(STDIN, "</dev/null");
  open(STDOUT,">/dev/null");
  open(STDERR,">&STDOUT");
  chdir '/';          # change working directory
  umask(0);          # forget file mode creation mask
  $ENV{PATH} = '/bin:/sbin:/usr/bin:/usr/sbin';
  return $$;
}

白水

UID: 4768
帖子: 1
积分: 2
在线时间: 10 分钟

3^# 白水发表于 2007-12-14 22:30

能不能稍微解释一下呢