如何在Perl中重現「不能使用未定義的值作爲符號引用」？

Question

Can't use an undefined value as a symbol reference 

任何人都知道如何重現它？

Answer 1

print $bar 1; 

發出錯誤。你可以看到的是什麼意思on this perlmonks thread

一個很好的解釋，由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

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

此代碼打印42如果調用使用任何參數，但給人的需要警告沒有參數。

Answer 3

這裏是最簡單的形式：

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