perl danmon(一个多进程的例子fork())

#!/usr/bin/perl -w


# a daemon simple


use strict;



# become daemon


my $pid = fork();

print $pid,"\n";

if($pid) {

  #end parent process


  print "#parent process";

  exit(0);

}else {

  print "#child process";

}



# set new process group


setpgrp;



while(1) {

  sleep(30);

  open ("TEST",">;>;/tmp/test.log");

  my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);

  $year+=1900;$mon++;

  print TEST ("Now is $year-$mon-$mday $hour:$min:$sec.\n");

  close (TEST);

}