Как вы воспроизводите «Не можете использовать неопределенное значение в качестве ссылки на символ» в Perl?

Question

Can't use an undefined value as a symbol reference 

Кто-нибудь знает, как его воспроизвести?

Answer 1

print $bar 1;

выдает ошибку.Вы можете увидеть хорошее объяснение того, что это означает в этой ветке perlmonks

, как объяснено splain:

Can't use an undefined value as a symbol reference (#1)
(F) A value used as either a hard reference or a symbolic reference must
be a defined value.  This helps to delurk some insidious errors.

Answer 2

Вот самая простая форма:

say *{my $a}{SCALAR}; # OR say ${ *{my $a} };

Answer 3

perl -we '$x = shift; *$x = sub {42}; print $x->()'

Этот код печатает 42, если вызывается с ЛЮБЫМ аргументом (включая ''), но выдает необходимое предупреждение без аргументов.