perl join

在perl中， join ()和 split ()的功能是相反的。
一.join函数
  1.作用：把数组元素或者几个字符串通过分隔符连接成单个字符串
  2.格式：join(DELIMITER，ARRAY或string[1,2,3...])
  3.实例：#join
$name="Tom";
$birth="01/02/86";
$addr="chengdu.sichuan";
$info=join(":",$name,$birth,$addr);
print "1.$info"."\n";

@list=("Tom","Joe","Tonny","chris");
@array=join("\n",@list);
$str=join("-",@list);
print "2.$str\n";
print "3.@array";

4.结果：
1.Tom:01/02/86:chengdu.sichuan
2.Tom-Joe-Tonny-chris
3.Tom
Joe
Tonny
chris