Wie kann man wissen, welche Codezeile ausgeführt wurde, wenn ein Signal empfangen wird

Question

Ich versuche, so etwas wie diese

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

alarm 10; 

# rest of the script 

zu tun, ich bin mit ALRM als Beispiel, werde ich ein anderes Ende mit Signal von außen zu töten, um es auszulösen. Gibt es eine nette Art, diese Art von Operation zu machen?

Ich habe einige langsame Skripte und manchmal würde Ich mag sie ein Signal senden zu wissen, wo der Code in diesem Moment ist.

Ich will das so unauffällig wie möglich machen, damit ich es packen könnte und es zu Legacy-Code hinzufügen.

Answer 1

Sie können caller in Listenkontext verwenden Sie die Paket, Datei und die Zeilennummer des Orts, dass die aktuellen Unter aus aufgerufen wurden zu bekommen.

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

    CORE::say $line; 
    die; 
}; 

alarm 2; 

while (1) { 
    1; 
} 

Dies wird Ausgang 11 (wenn ich das richtig in meiner Datei gezählt, es ist 1740, und die $SIG Linie ist 1730

Es funktioniert auch mit anderen Signal-Handler, wie warn.

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

    CORE::say $line; 
}; 

warn 'foo'; 

Dies wird 7 ausgeben

Beachten Sie, dass Ihr Code einen Syntaxfehler aufweist ein Hashreferenz als Signalbehandlungsroutine, nicht Teilreferenz!