Thực hiện một số mã luôn trước khi tập lệnh Perl kết thúc

Question

Làm cách nào để tôi có thể đặt mã phải thực thi trước khi tập lệnh Perl dừng?

Ở đây how to run piece of code just before the exit of perl script Tôi đọc về chương trình con END, nhưng nó chỉ thực hiện nếu tập lệnh kết thúc bình thường. Tuy nhiên, tôi muốn mã được thực hiện cũng nếu, ví dụ, người dùng hủy bỏ chương trình bằng^C.

Answer 1

Trap các tín hiệu chấm dứt và tái định tuyến họ để một cái gì đó, đơn giản nhất sẽ là:

$SIG{TERM} = $SIG{INT} = $SIG{QUIT} = $SIG{HUP} = sub { die; };