Perl處理鍵盤中斷

Question

我試圖編寫一種方式，當用戶鍵入CTRL + C時，腳本將在關閉前執行幾個步驟。我知道如何在Python中做到這一點。 python代碼會是這樣的：

try: 
    workbook = xlsxwriter.Workbook('Desktop\ODFU '+str(System)+'.xlsx') 
    worksheet = workbook.add_worksheet() 
    excelcreate(System) 
    login(USER, PASS) 
    test() 
    time.sleep(2) 
    print"Test is complete..." 
    logout() 
except KeyboardInterrupt: # CTRL+C Terminates script and saves everything and logs out 
    print"" 
    print "Interruption occurred!! Script terminating..." 
    workbook.close() 
    logout()  

我怎樣才能得到與此完全一樣的Perl，但Perl？

Answer 1

只要定義一個SIGINT處理程序：

local $SIG{INT} = sub { 
    $workbook->close; 
    logout(); 
    exit 130 
};