in reply to Restart Forked Script

See kill docs on perlfunc. 
kill -1, $master_pid;

[download]
will send a signal to the master process and all its children.

To restart the parent you can use a signal handler: 

$SIG{HUP} = sub { exec @restart_args
                    if $$ == $master_pid;
                  exit };

[download]

Replies are listed 'Best First'.
Re^2: Restart Forked Script
by avo (Pilgrim) on Feb 21, 2006 at 12:37 UTC
    How do I determine the PID of the master process ? Also I forget to mention that I am running ActiveState Perl on Win32. I hope this doesn't matter. :)
[reply]
      Also I forget to mention that I am running ActiveState Perl on Win32. I hope this doesn't matter

      Unfortunately it does!

      Windows does not support fork at the OS level, perl tries to emulate it creating a new threat and cloning your program state but it is far from perfect.

      On Windows it is better to use threads to run several tasks in parallel rather than fork.

[reply]
[d/l]
        What I didn't publish is the following in my code: just after: 
        $kid = fork;

        [download]
        I am doing the following: 
        $dbh = DBI->connect("DBI:mysql:DatabaseName;host=127.0.0.1;mysql_serve
+r_prepare=1",'root','pass',{AutoCommit=>1}) or die $DBI::errstr;

        [download]
        It works just fine for me using the fork emulation. Can you perhaps may be give me an example of using multiple Database handles and threading server with IO::Socket. Thanks a lot for your answers, you are really helping me.
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom