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

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

1. 正则表达式基础与应用

正则表达式（regex）是 Perl 中极为强大的工具，它能帮助我们高效地处理文本。下面将详细介绍正则表达式在不同场景下的应用。

1.1 匹配特定文本行

假设我们有一个文件，其中包含一些文本行，我们需要找出那些同时包含美国州缩写（两个字母）和邮政编码（五位数字）的行。以下是一个示例脚本：

while (<>) { if (/[A-Z]{2} \d{5}/) { print "Valid line: $_"; } elsif (/[A-Z]{2}/ || /\d{5}/) { print "Warning: Missing one field in line: $_"; } else { print "Neither field present in line: $_"; } }

这个脚本会逐行读取文件内容，根据每行是否包含所需字段输出相应信息。

1.2 结合 split 函数使用正则表达式

split()函数常用于将字符串分割成数组。当数据不是由固定字符分隔时，使用正则表达式作为分隔符会更方便。

my $string = "First_name Second_name Age DOB Height Weight"; my @array = split(