Как узнать, какая строка кода была выполняется, когда сигнал получен

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

Обратите внимание, что ваш код имеет синтаксическую ошибку. a хеш-ссылка в качестве обработчика сигнала, не подзаголовок!