在使用Perl 处理文本时, 对字符串采用正则分隔是最常见的一个操作了.

1. 正则分隔字符串

• 语法: 数组或列表 = split 分隔模式,字符串;

1.1 按任意多个空格进行分隔

按空格将字符串分隔为数组, 分隔后的数组长度为3.

$book = "java linux unix ";
@books = split /\s+/, $book;

1.2 按单一字符分隔

按字符点将字符串分隔为数组, 分隔后的数组长度为4

$host="127.0.0.1";

# 按点进行分隔
@ints = split /\./, $host;

1.3 按混合字符分隔

按字符串//或字符点进行分隔, 分隔后的数组长度为4

$str = "http://www.baidu.com";
@array = split m{//|\.}, $str;

1.4 列表上下文

列表上下文可以将字符串分隔的结果对多个变量同事赋值.

$host="127.0.0.1";
($first, $second, $third, $fourth) = split /\./, $host;

2. 字符串连接

有了字符串分隔, 也就有对应的字符串连接. 字符串连接和正则并没有太大的关系.

$host="127.0.0.1";
@ints = split /\./, $host;

# 新字符串为:127-0-0-1
$str = join "-", @ints;