【perl语言正则表达式】在Perl编程语言中，正则表达式（Regular Expression）是一个非常强大且常用的工具，用于文本处理、数据提取和模式匹配。Perl的正则表达式功能非常丰富，支持多种语法和操作符，使得开发者能够灵活地处理字符串。
以下是对Perl语言正则表达式的总结，并以表格形式展示其主要用法和示例。
一、Perl正则表达式基础
| 操作符/语法 | 功能说明 | 示例 |
| `=~` | 匹配操作符，用于将字符串与正则表达式进行匹配 | `$str =~ /pattern/;` |
| `!~` | 否定匹配，表示不匹配 | `$str !~ /pattern/;` |
| `m//` | 匹配操作符，等同于 `=~` | `if ($str m/pattern/) { ... }` |
| `s///` | 替换操作符，用于替换匹配到的内容 | `$str = s/old/new/;` |
| `tr///` | 字符替换操作符，用于单个字符的替换 | `$str = tr/a-z/A-Z/;` |
| `qr//` | 将正则表达式编译为一个模式对象，提高效率 | `$pattern = qr/\d+/;` |
二、常用元字符
| 元字符 | 功能说明 | 示例 |
| `.` | 匹配任意单个字符（除换行符外） | `/a.c/` 可匹配 "abc", "a1c" 等 |
| `\d` | 匹配数字（0-9） | `/^\d{3}$/` 匹配三位数 |
| `\D` | 匹配非数字 | `/^\D+$/` 匹配纯字母字符串 |
| `\w` | 匹配单词字符（字母、数字、下划线） | `/^\w+$/` 匹配合法变量名 |
| `\W` | 匹配非单词字符 | `/[^a-zA-Z0-9_]/` 等效 |
| `\s` | 匹配空白字符（空格、制表符、换行等） | `/^\s$/` 匹配空行或全空格 |
| `\S` | 匹配非空白字符 | `/^\S+$/` 匹配非空字符串 |
三、量词与边界匹配
| 量词 | 功能说明 | 示例 |
| `` | 匹配前面的元素0次或多次 | `/a/` 匹配 "", "a", "aa", "aaa" |
| `+` | 匹配前面的元素1次或多次 | `/a+/` 匹配 "a", "aa", "aaa" |
| `?` | 匹配前面的元素0次或1次 | `/a?/` 匹配 "" 或 "a" |
| `{n}` | 匹配前面的元素恰好n次 | `/a{3}/` 匹配 "aaa" |
| `{n,}` | 匹配前面的元素至少n次 | `/a{2,}/` 匹配 "aa", "aaa", ... |
| `{n,m}` | 匹配前面的元素n到m次 | `/a{2,4}/` 匹配 "aa", "aaa", "aaaa" |
| 边界匹配 | 功能说明 | 示例 |
| `^` | 匹配字符串开始位置 | `/^hello/` 匹配以 "hello" 开头的字符串 |
| `$` | 匹配字符串结束位置 | `/world$/` 匹配以 "world" 结尾的字符串 |
| `\b` | 匹配单词边界 | `/cat\b/` 匹配 "cat" 而不是 "category" |
四、分组与捕获
| 分组语法 | 功能说明 | 示例 |
| `( )` | 捕获分组，保存匹配内容 | `$str =~ /(\d{3})-(\d{3})-(\d{4})/;` |
| `(?= )` | 正向预查，匹配但不捕获 | `/foo(?=bar)/` 匹配 "foobar" 中的 "foo" |
| `(?! )` | 负向预查，匹配但不捕获 | `/foo(?!bar)/` 匹配 "fool" 但不匹配 "foobar" |
| `(?: )` | 非捕获分组 | `/(?:abc)def/` 匹配 "abcdef" 但不保存 "abc" |
五、修饰符（Flags）
| 修饰符 | 功能说明 | 示例 |
| `i` | 忽略大小写 | `/hello/i` 匹配 "Hello", "HELLO" 等 |
| `g` | 全局匹配 | `$str =~ s/pattern/replacement/g;` |
| `m` | 多行模式，`^` 和 `$` 匹配每一行的开始和结束 | `/^start/m` |
| `s` | 单行模式，`.` 匹配所有字符包括换行 | `/.$/s` |
| `x` | 忽略空白字符，允许注释 | `/pattern/x` |
六、常见应用场景
| 场景 | 示例 |
| 提取电话号码 | `/(\d{3})-(\d{3})-(\d{4})/` |
| 验证邮箱格式 | `/^[a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,}$/` |
| 替换HTML标签 | `s/<[^>]>//g` 删除HTML标签 |
| 分割日志行 | `/(\d{4}-\d{2}-\d{2})\s+(.+)/` |
总结
Perl的正则表达式功能强大且灵活，适用于各种文本处理任务。通过掌握基本语法、元字符、量词、边界匹配、分组以及修饰符，可以高效地完成字符串匹配、替换、提取和验证等工作。合理使用正则表达式能显著提升代码的可读性和执行效率。
