CrLf

方法一测试有点问题：

perl -e "my @a=(1..5);my @b=(6..8);(@a[0..$#b], @b[0..$#a]) = (@b, @a);print \"@a\""
复制代码

输出

6 7 8 4 5

这是不是说明只有不同类型才能直接用方法一？
----------------------------------------------
方法二太棒了，请教下这里的 * 是什么东东？

CrLf

回复 3# 523066680


做了个实验，结果把我看迷糊了，为什么长数组在后的时候，交换时就会自动变短：

my @a=(1..5);
my @b=('a'..'g');

(@a[0..$#b], @b[0..$#a]) = (@b, @a);
print "\@a = @a\n\@b = @b\n\n";

my @b=(1..5);
my @a=('a'..'g');

(@a[0..$#b], @b[0..$#a]) = (@b, @a);
print "\@a = @a\n\@b = @b\n\n";
复制代码

更诡异的是，交换得到的短数组和原生数组也不太一样，好像变“聪明”了：

my @a=(1..5);
my @b=('a'..'g');

(@a[0..$#b], @b[0..$#a]) = (@b, @a);
print "\@a = @a\n\@b = @b\n\n";

(@a[0..$#b], @b[0..$#a]) = (@b, @a);
print "\@a = @a\n\@b = @b\n\n";
复制代码

--------------------------------------------------------
卧槽，天书...mark 一个，待消化