在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.$str\n";
print "3.@array";
4.结果：
1.Tom:01/02/86:chengdu.sichuan
2.Tom-Joe-Tonny-chris
3.Tom
Joe
Tonny
chris
一.join函数
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.$str\n";
print "3.@array";
4.结果：
1.Tom:01/02/86:chengdu.sichuan
2.Tom-Joe-Tonny-chris
3.Tom
Joe
Tonny
chris