[原创]perl Daemon示例

swallor

如果您对Daemon程序不是很了解，请先看看这里:
http://dev.csdn.net/article/42/42281.shtm

下面是我写的perl daemon的示例，功能与上面文章中的一样。希望大家不要对perl写daemon程序再感陌生，同时也希望板主能加到精华中方便查找。

1. #!/usr/bin/perl -w
   
2. # a daemon simple
   
3. use strict;
   
4. 
   
5. # become daemon
   
6. my $pid = fork();
   
7. print $pid,"\n";
   
8. if($pid) {
   
9.   #end parent process
   
10.   print "#parent process";
    
11.   exit(0);
    
12. }else {
    
13.   print "#child process";
    
14. }
    
15. 
    
16. # set new process group
    
17. setpgrp;
    
18. 
    
19. while(1) {
    
20.   sleep(30);
    
21.   open ("TEST",">;>;/tmp/test.log");
    
22.   my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
    
23.   $year+=1900;$mon++;
    
24.   print TEST ("Now is $year-$mon-$mday $hour:$min:$sec.\n");
    
25.   close (TEST);
    
26. }
    

复制代码

以上程序在Red Hat Linux release 7.3 perl v5.6.1上测试通过。

dominic_80

不错！

先收了，以后在REDHAT AS3上试试。

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得过程中又被关闭。

flw

呵呵，抄一段《Perl 网络编程》中的 become_daemon 函数：

1. use POSIX 'setsid';
   
2. 
   
3. sub become_daemon {
   
4.     die "Can't fork" unless defined (my $child = fork);
   
5.     exit 0 if $child;
   
6.     setsid();
   
7.     open( STDIN, "</dev/null" );
   
8.     open( STDOUT, ">/dev/null" );
   
9.     open( STDERR, ">&STDOUT" );
   
10.     chdir '/';
    
11.     umask(0);
    
12.     $ENV{PATH} = '/bin:/sbin:/usr/bin:/usr/sbin";
    
13.     return $$;
    
14. }

复制代码