Что означает специальная переменная $ @ в Perl?

Question

Я пытаюсь понять следующий фрагмент кода:

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

Answer 1

perldoc -f eval :

  

Если есть синтаксическая ошибка или время выполнения   ошибка или "умереть" заявление   выполнено, неопределенное значение   возвращено "eval", а $ @ установлено в   сообщение об ошибке. Если бы не было   ошибка, $ @ гарантированно будет нулевым   строка.

См. также perldoc perlvar .

Answer 2

$ @ - магическая переменная, содержащая сообщение об ошибке последней команды eval , если таковая имеется.

Answer 3

Циклу if должен предшествовать eval, чтобы он мог перехватывать $ @.

Во время eval () $ @ всегда устанавливается при сбое и очищается при успехе.

В случае, если код внутри eval () не скомпилирован, $ @ устанавливается на ошибку компиляции.