Perlで深刻な参照違反のスタックトレースを取得できますか？

Question

私はPerlプログラムでuse strictを使用していますが、エラーは単一の違反行をリストするだけなので、それらのエラーは役に立ちません。厳密な使用が失敗した場合にバックトレースを取得する方法はありますか？

Answer 1

strictプラグマには、すべての変数を宣言することを必要とするsubs、およびvarsのカテゴリが含まれています。それらはコンパイル時にエラーです。これらのスタックトレースは、その行のソースコードから直接発生するため、有用ではありません。

refsは、参照として文字列を禁止します。ランタイムエラーです。スタックトレースは、その文字列がどこから来たのかを理解するのに役立ちます。

スタックトレースを取得する方法の1つは、use Carp::Always（またはコマンドラインフラグ：-MCarp::Always）です。これにより、すべてのエラーと警告にスタックトレースが追加されます。すべてのエラーがずっと長くなるので、これをデバッグのヘルプとしてのみ使用することをお勧めします。

サブルーチンが無効な引数を受け取っているという問題がある場合は、入力を検証する方が良いかもしれません。例えば：

use Carp; 

sub foo { 
    my ($ref) = @_; 

    # dies from the line where "foo()" was called 
    croak q(Argument "ref" must be a scalar reference) 
    unless ref $ref eq 'SCALAR' or ref $ref eq 'REF'; 

    do_something_with($$ref); 
} 

Perlのオプション-MCarp=verboseを添加することによりCarp（例えばcroak()またはconfess()）がスタックトレースを強制することができるからの機能のいずれかを使用。