Re: print on reboot or process shutdown

[gaal]

Read about END blocks in perlmod.

[marto9]

Ty. I read the doc and was able to fix it. This is the code that I place in the beginning of my script.

END {
    open(THEND,">ABORTED");
    close(THEND);
}

But the END block is also executed when the script finishes. And it should only be executed on reboot or process kill.

[gaal]

If you only have one normal exit point to your script, have it set a flag. Check this flag in your END block, and only write to the file when it is not set.

If you have more than one normal exit point to your script, well, refactor a bit. :-)

PS: note that the way you're opening your file, its contents will be overwritten every time, rather than appended to. Use ">>" if you prefer the other way.

[psini]

You can use a signal handler to cacth SIGTERM

$SIG{TERM}=sub {
  #do something here
};

But that cannot trap a SIGKILL so if you or your system make a kill -9, it will not be intercepted. And, no, AFAIK there is no way to intercept a SIGKILL because it should be the last resort to kill a not responding process.