数组迷惑！请指教

joson12345

#!/usr/bin/perl-w
@a=(1,2,3);
@b=(4,5,6);
sub addem
{
        my ($ref1,$ref2)=@_;
        while (@{$ref1}) {
                unshift @result, pop(@{$ref1})+pop(@{$ref2});#@{$ref1}不明白是什么意思
        }
        return @result;
}
@c=addem (\@a,\@b);
print join (',', @c);
蓝色的(@{$ref1}) 部分，这个是什么意思，书上没有介绍，不懂！而且为什么将它改成@ref1就不能运行了呢？
相同的问题还有一个
#!/usr/bin/perl -w
sub get
{
        @a=(1,2,3);
        @b=(4,5,6);
        return \@a,\@b;
}
($aref,$bref)=get;
print "@$aref\n"; #@$代表什么意思，不懂？？？？
print "@$bref\n";
这个@$又是表示什么，为什么去掉$后就出错呢？
thanks

兰花仙子

@c=addem (\@a,\@b);
你这里调用addem时，是将2个数组的引用作为参数传递给它的。
所以在addem函数内部，要用@{$ref}这种方式对数组进行解引用，就是还原数组。
或者直接用@$ref也行。

joson12345

thank you!

明月千里寄相思

好象是在调用什么东西，我遇见过