17. Perl 正则表达式-正则分隔字符串

在使用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;