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 ); # 你已定义了 @arraymy $array[1] = 10;; # 这里你就不要用 my@array 是一个变量名称 "symbol", 你可以 my$array[1] 是一个地址段(引用) "refs" , 你不能对一个引用作 my 的宣告