Re: trap signal 'exit': why I am not able to have it work??

There's no EXIT handler in Perl. You can use the END {...} block instead. Why do you need it?

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

Comment on Re: trap signal 'exit': why I am not able to have it work?? Select or Download Code

Replies are listed 'Best First'.
Re^2: trap signal 'exit': why I am not able to have it work?? by alex5161 (Novice) on Oct 31, 2017 at 13:00 UTC
Sure! Completely cover all my needs! Just followed shell-script functionality and did not guess about the END{} Thanks!	[reply]
Re^3: trap signal 'exit': why I am not able to have it work?? by RonW (Parson) on Oct 31, 2017 at 19:15 UTC
Note that `END` blocks are executed in the reverse order they are "registered". If you want or need your `END` block to run last, you need to put it before any `use` directives (though should be safe to put it after `strict` and `warnings`). `use strict; use warnings; my $exit_normally = 0; sub exit_handler; END { exit_handler; } # other use directives sub exit_handler { ... } ... $exit_normally = 1; __END__` [download]	[reply] [d/l] [select]
Re^4: trap signal 'exit': why I am not able to have it work?? by alex5161 (Novice) on Nov 01, 2017 at 16:52 UTC
.. before any use directives... That why I could not get the END{..} be processed by 'die' for signals... Thanks, again!!!	[reply]