perl 之 join和 split

join 函数

将字符串列表，用分隔符连接起来，生成一个更长的字符串。

语法

join EXPR, LIST
//expr 就是用于连接的分隔符
//list 就是字符串列表

例子

$string = join( "-", "one", "two", "three" );
print"Joined String is $string\n";

$string = join( "", "one", "two", "three" );
print"Joined String is $string\n";
#result
#Joined String is one-two-three
#Joined String is onetwothree

split 函数

将一个字符串，通过分隔符，最后生成有许多子串的数组或者列表。

语法

split /PATTERN/,EXPR,LIMIT
split /PATTERN/,EXPR
split /PATTERN/
split

例子

@fields = split(/:/, "1:2:3:4:5");
print "Field values are: @fields\n";
#result
#Field values are: 1 2 3 4 5