perl为什么数组名不能是变量

Question

use strict;my $array_name = abc;my ${$array_name}[0] = bcd;报错：Can't use string ("abc") as an ARRAY ref while "strict refs"in use at read.pl line xx.去掉strict后即可正常运行。想问问为什么use strict就不能用变量作为数组名，如果去掉strict，会有什么风险？

Answer 1

你这样的命名本来就是错的... 去掉 strict, 你就不会发现这样的命名是不对的,

往後的处理也将是错的. ( 如果结果还是对的, 那只是你走运而已 )

想像一下
my @array = ( 1..10 );
my $array[1] = 10;
@array = ();
print @array;

你还能理解 $array[1] 是甚麼吗 ?
而如果你用的 perl 是 5.14 或之後, 你这样的宣告方法应该是直接报错, 不管你有没有 use strict;

另外值得一提的就是

my $array_name = abc;

其实就是
my $array_name = abc(); # 或者
my $array_name= &abc(); # 的意思,

而你可能想这是
my $array_name = "abc" ;

Answer 2

问题出在
my @array = ( 1..10 ); # 你已定义了 @array
my $array[1] = 10;; # 这里你就不要用 my

@array 是一个变量名称 "symbol", 你可以 my

$array[1] 是一个地址段(引用) "refs" , 你不能对一个引用作 my 的宣告