Perl 正则表达式

正则表达式（Regular Expression）是一种用于描述字符串模式的工具。在 Perl 中，正则表达式的使用非常广泛，可以用来匹配、替换、拆分字符串，还可以对文本进行复杂的搜索和处理。

正则表达式语法

Perl 的正则表达式语法非常强大，其中包含了各种元字符和特殊语法，下面我们来学习一下 Perl 正则表达式的语法。

字符类

字符类用来匹配某一类字符，可以在方括号内列举出所有可能的字符。

/[abc]/ # 匹配 a、b、c 中的任意一个字符
/[a-z]/ # 匹配小写字母 a 到 z 中的任意一个字符
/[^abc]/ # 匹配除了 a、b、c 之外的任意一个字符
/\d/ # 数字字符，等效于 [0-9]
/\w/ # 单词字符，包括字母、数字和下划线，等效于 [a-zA-Z0-9_]
/\s/ # 空白字符，包括空格、制表符和换行符

量词

量词用来表示匹配的次数，常见的量词如下：

/abc?/ # 匹配 ab 或 abc，? 表示前面的字符可以出现 0 次或 1 次，等价于 {0,1}
/abc*/ # 匹配 ab、abc、abcc、abccc......，* 表示前面的字符可以出现 0 次或多次，等价于 {0,}
/abc+/ # 匹配 abc、abcc、abccc......，+ 表示前面的字符可以出现 1 次或多次，等价于 {1,}
/abc{2}/ # 匹配 abcc，{2} 表示前面的字符必须出现 2 次
/abc{2,5}/ # 匹配 abcc、abccc、abcccc、abccccc，{2,5} 表示前面的字符可以出现 2 到 5 次
/abc{2,}/ # 匹配 abcc、abccc、abcccc、abccccc......，{2,} 表示前面的字符可以出现 2 次或多次

锚点

锚点用来表示匹配的位置，常见的锚点如下：

/^abc/ # 匹配以 abc 开头的字符串
/abc$/ # 匹配以 abc 结尾的字符串
/\babc/ # 匹配以 abc 开头的单词
/abc\b/ # 匹配以 abc 结尾的单词

分组

分组用来对正则表达式进行组合，可以使用小括号将一段正则表达式括起来，形成一个子表达式。

/(ab)+/ # 匹配 ab、abab、ababab......
/(ab|cd)/ # 匹配 ab 或 cd
/(a(bc)+)/ # 匹配 abc、abcbc、abcbcbc......

贪婪与非贪婪

默认情况下，Perl 正则表达式是贪婪的，即尽可能多地匹配，可以在量词后面加上一个问号（?）表示非贪婪。

/abc.+/ # 贪婪匹配，将匹配到字符串的最后一个 abc
/abc.+?/ # 非贪婪匹配，将匹配到字符串的第一个 abc

正则表达式函数

Perl 提供了很多用于正则表达式处理的函数，下面我们来学习一下常用的函数及其用法。

m// 和 qr//

m// 是匹配操作符，用于在字符串中查找匹配正则表达式的子串，也可以将正则表达式定义为一个变量，并在 m// 中使用，例如：

my  $str = "hello world"; if ($ str =~ /world/) {
    print "Matched\n";
}

my  $pattern = qr/world/; if ($ str =~ m/$pattern/) {
    print "Matched\n";
}

s///

s/// 是替换操作符，用于替换字符串中与正则表达式匹配的子串，例如：

my  $str = "hello world";$ str =~ s/world/perl/;
print $str; # 输出 hello perl

split

split 函数用于分割字符串，可以按照正则表达式的匹配来进行分割，例如：

my  $str = "hello,world,perl"; my @arr = split /,/,$ str;
print join(" ", @arr); # 输出 hello world perl

grep 和 map

grep 函数用于选择数组中满足特定条件的元素，map 函数用于将数组中的元素进行转换，可以配合正则表达式使用，例如：

my @arr = ("hello", "world", "perl");
my @matched = grep(/l/, @arr); # 匹配包含 l 的元素
my @result = map(uc, @arr); # 将元素转换为大写字母

捕获组

在正则表达式中使用小括号可以创建一个捕获组，捕获组可以将匹配到的子串保存到变量中，例如：

my  $str = "hello world"; if ($ str =~ /(\w+)\s+(\w+)/) {
    my  $first =$ 1;
    my  $second =$ 2;
    print " $first$ second\n"; # 输出 hello world
}