Re: Creating PID file

On Sun, Apr 27, 2008 at 9:30 AM, Michael Barnes <mbarnes@[EMAIL PROTECTED]
>
wrote:
>  So, I need my script to
>  create a pidfile when it starts.
>

There's not trick for creating a pid file in Perl.
You can say,

my $pid = $$;
open my $fd,'>', "/path/program.pid" or die $!;
print $fd $pid;
close $pid or die $!;

at the begin of the script.
And at the END block of the script you should delete the pid file when
script was exiting:

END {
    unlink "/path/program.pid" if $$ = $pid;
}


-- 
J. Peng - QQMail Operation Team
eMail: peng.kyo@[EMAIL PROTECTED]
 AIM: JeffHua