Perl引用的一个问题

shappen

原帖由 flw 于 2007-9-25 10:36 发表

如果是这个目的的话，你就不应该写这么复杂的程序。

$array_header = "sym_ref_array";
$array_name = $array_header . '0';
$array_name->[0] = 10;
$$array_name[1] = 20;
print "@$array_name";

...

谢谢老大回复，明白了