你可以说说以下两件事吗 ?
@$beads 和 @$balls 的结构是怎样的?
$beadname 和 $ballname 是怎样来的? 比说是一个 sub 的参数, 或是数组中的某个元素?
光从文字的意思来看, 你想做到的基本上就像以下了
my $bead = [0,0,0];
my $ball = [5,5,5];
my ( $beadname, $ballname ) = ( "ABC", "ABC" ) ;
@$bead = @$ball if ( $beadname eq $ballname ) ;
print "@$bead";
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024