Perlの特殊変数$ @はどういう意味ですか？

Question

次のコードを理解しようとしています：

sub foo {
    ...
    if ( $@ ) {
        ...
        die $@;
    }
}

Answer 1

perldoc -f eval ：

  

構文エラーまたはランタイムがある場合   エラー、または「ダイ」文は   実行されると、未定義の値は   ＆quot; eval＆quot;によって返され、$ @は   エラーメッセージ。なかった場合   エラー、$ @はnullであることが保証されています   文字列。

perldoc perlvar も参照してください。

Answer 2

$ @ は、もしあれば、最後の eval コマンドのエラーメッセージを含むマジック変数です。

Answer 3

ifループの前にevalを付けて、$ @をトラップできるようにします。

eval（）中、$ @は失敗すると常に設定され、成功するとクリアされます。

eval（）内のwhrコードがコンパイルされなかった場合、$ @はコンパイルエラーに設定されます。