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("-",216)">print "2.$strn";
print "3.@array";
4.结果：
1.Tom:01/02/86:chengdu.sichuan
2.Tom-Joe-Tonny-chris
3.Tom
Joe
Tonny
chris