Perl基础函数——split和join（perl strict）

在日常文本处理中， 经常需要分隔字符串， 来进行后续操作， 相应的我们也需要将各种字符串或者字符， 根据特殊要求连接到一起成一个新的字符串。

Perl中最常用的的切割和拼接函数就是split， join。

split用来切割字符串， 用法如下

split

split /PATTERN/

split /PATTERN/, EXPR

split /PATTERN/, EXPR, LIMIT

通常使用的是3参数的split，

我们来看一个例子， 我们有一个字符串

my $str = "a:b:C:D:E:F|G|H";

我们可以根据:来将它进行分割成字符串数组：

my @strs = split ':', $str;

那如何同时根据：或者 | 来分割呢？

spllit第二个参数不仅可以指定分隔符， 也可以根据正则表达式来进行分割

my @strs = split /[:|]/, $str;

这样就根据：或者|来分割了。

有些情况下， 我们只需要分割出前几个元素， 而不需要分割完所有的内容， 这个时候就需要使用split的第四个参数。

split第四个参数限制分割产生的元素个数
my @strs = split /[:|]/, $str, 4;

这样， split只会最多分割出4个元素来， 所有未分割的内容， 都会存在最后一个元素中。

与split相反， join可以将一个数据， 根据指定的连接符， 连接成一个新的字符串。

join的用法：

join EXPR， LIST

join用法很简单， 下面我们将刚才的数据

my $str = "a:b:C:D:E:F|G|H";

切割出来， 然后在使用-符号来连接生成新的字符串

$str = join '-', (split /[:|]/, $str);