in reply to Persistent perl
Sounds like you want to make it a daemon:
Note: Verify your system supports autoreapping of zombies.use IO::Socket; use POSIX qw(WNOHANG setsid); sub daemonize { $SIG{CHLD} = 'IGNORE'; # Configure to autoreap zombies die "Can't fork" unless defined ( my $child = fork ); # FORK +<<<<<<<<<<<< CORE::exit(0) if $child; # Parent exits setsid(); # Become session leader open( STDIN, "</dev/null" ); # Detach STDIN from shell open( STDOUT, ">/dev/null" ); # Detach STDOUT from shell open( STDERR, ">&STDOUT" ); # Detach STDERR from shell chdir '/tmp'; # Change working directory umask(0); # Reset umask $ENV{PATH} = '/bin:/sbin:/usr/sbin'; # Reset PATH }
You can read more in this thread.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Persistent perl
by njcodewarrior (Pilgrim) on Mar 25, 2006 at 01:23 UTC | |
by Argel (Prior) on Mar 27, 2006 at 19:36 UTC |
In Section
Seekers of Perl Wisdom