Possible en double:
How do I force a stack backtrace for all fatal errors in Perl?Comment puis-je obtenir une traceback dans Perl?
L'une des choses que j'aime Python, est que lorsqu'un script sort en raison d'une erreur, il crache un retraçage. Je me demande s'il y a un moyen pour Perl de faire ça aussi?
Ajouter ceci au début de votre script:
use Carp 'verbose';
$SIG{ __DIE__ } = sub { Carp::confess(@_) };
Il va créer une trace de la pile sur toutes les erreurs fatales.
Vous pouvez également faire ce '$ SIG {__ DIE__} = \ & Carp :: confess;' –
Cette réponse est vraiment beaucoup mieux qu'à la question qui est considérée comme un doublon de celui-ci. – EMiller
Recherchez le module Carp::Always.
'Carp :: Always' est une méthode bien meilleure que de jouer avec sigdie parce que vous pouvez l'activer depuis la ligne de commande. 'perl -MCarp :: Always my_script' Très, très bien. – daotoad
Je mets '#!/C/Perl/bin/perl-MCarp :: Toujours -w' comme première ligne du script. Et il a dit "Trop tard pour" -MCarp :: Toujours "option à ... ligne 1.» –
Dupe: http://stackoverflow.com/questions/738628. Aussi, http://stackoverflow.com/questions/1877638 et http://stackoverflow.com/questions/971273 – mob