22、Perl正则表达式与程序交互全解析

Perl正则表达式与程序交互全解析

1. 正则表达式基础

正则表达式在Perl中是非常强大的工具，能在很多场景发挥重要作用。

1.1 正则表达式与split函数

在处理数据时，split函数常与正则表达式配合使用。正常情况下，我们可以按固定字符分割字符串，例如：

my @array = split(/","/, $string); # 按逗号分割

但当数据分隔不规整，如用多个空格或空格与制表符混合分隔时，使用正则表达式/\s+/是更好的选择，它表示一个或多个空白字符。示例如下：

my $string = "First_name Second_name Age DOB Height Weight"; my @array = split(/\s+/, $string); # 按空白字符分割

使用该正则表达式，无论字段是由空格还是制表符分隔，@array最终都会包含六个元素。

若不指定split函数的模式和变量，默认模式为空白字符，使用$_作为变量，且会去除行首的空白字符。以下代码可打印以空格分隔文件的第一列和第三列：

while (<>) { my @array =