perl学习笔记-----------------------（13）

可以通过使用赋值运算符=将一个表赋值给另一个。如：($a,$b)=($c,$d);用这样的方法，可以将表当作可赋值的实体和左值。这两个表甚至可以包含某些或全部的相同变量：

($a,$b)=($b,$a);

相互赋值的表可以是不同大小的。如：

($a,$b)=(1,2,3);
print $a;

将一个表赋值给标量，将得到该表的最后一个元素：

$a=(2,4,6);
print $a;

数组对表的上下文相当了解，将其赋值给标量时，只是得到了该数组所含元素的数量而不是得到数组的最后一个元素：

@a=(2,4,6);
$a=@a;
print $a;

将标量赋值给表，只有表的第一个元素得到标量的值，其余元素得不到任何赋值，会被设置为undef（）：

($a,$b,$c)=1;

join函数可以将表中的元素连接成字符串。join EXPR ,LIST;这个函数让expr中的值包含着list里的字符串，然后将它们连接为单个字符串，返回结果为字符串。

print join(" ",qw/Now is the time/);<