如何知道哪些是正在執行的代碼行當接收

Question

我試圖做這樣的事情

$SIG{ALRM} = sub { 
    print $line_number_when_alarm_went_off; 
}; 

alarm 10; 

# rest of the script 

我使用ALRM作爲信號。例如，我最終會使用不同的從外面殺掉信號來觸發它。做這種手術有沒有一種簡潔的方式？

我有一些緩慢的腳本，有時我想向他們發送一個信號，知道當時的代碼在哪裏。

我希望儘可能不顯眼，這樣我就可以打包並將其添加到舊代碼中。

Answer 1

您可以在列表上下文中使用caller來獲取調用當前子項的位置的包，文件和行號。

$SIG{ALRM} = sub { 
    my ($pkg, $file, $line) = caller; 

    CORE::say $line; 
    die; 
}; 

alarm 2; 

while (1) { 
    1; 
} 

這將輸出11（如果我算正常，在我的文件是1740，而$SIG線是1730

它還可以與其它信號處理程序，就像warn。

$SIG{__WARN__} = sub { 
    my ($pkg, $file, $line) = caller; 

    CORE::say $line; 
}; 

warn 'foo'; 

這將輸出7

請注意，您的代碼有語法錯誤。一個散列參考作爲信號處理程序，不是子參考！