perl正则表达式教程：从基础到进阶，文本处理效率提升技巧

处理文本时总在重复复制粘贴？想从大段文字里提取邮箱、手机号却要翻半天？不少新手朋友跟我说，处理日志、文档时最头疼的就是找内容、改格式，明明很简单的需求，手动做却要花半小时。其实啊，Perl 的正则表达式就是解决这些问题的 “神器”，几行代码能搞定你半天的活儿。今天兔子哥就从基础到进阶，把 Perl 正则的用法拆解开，附上行之有效的实战技巧，全是新手能看懂的大白话，学会了文本处理效率至少提一倍。

一、基础符号：正则的 “拼音字母”，这几个符号必须先记住

刚接触正则别被一堆符号吓住，就像学拼音先认字母，正则也有基础符号，记住这几个，简单匹配就够用了。
1. 元字符：匹配特定类型的字符，新手先记 3 个
正则里的元字符就像 “万能钥匙”，能匹配一类字符，最常用的有这几个：

• .（点）：匹配除换行符外的任意一个字符，比如a.b能匹配 “aab”“acb”，但不能匹配 “a\nb”（带换行的）；
• \d：专门匹配数字，0-9 都行，比如\d{3}能匹配 “123”“456”，提取手机号、身份证号必用；
• \w：匹配字母、数字或下划线，比如\w+能匹配 “name123”“user_name”，提取用户名、变量名超方便。

有朋友问：“这些符号记混了咋办？” 其实多用几次就熟了。比如想提取字符串里的数字，直接用\d+就行，+表示 “一个或多个”，所以\d+就是 “一串数字”，试试这个例子：
perl

my $str = "订单号：20240512，金额：99元";if ($str =~ /(\d+)/) {  # 括号用于提取匹配内容print "提取到的数字：$1\n";  # $1是第一个括号里的内容，输出20240512}

2. 量词：控制匹配次数，别再写重复符号了
想匹配 “3 个数字”“至少 2 个字母”？用量词就能精准控制次数，常用的有这几个：

• *：匹配 0 次或多次，比如ab*能匹配 “a”“ab”“abb”；
• +：匹配 1 次或多次，比*更常用，因为多数时候我们需要 “至少有一个”；
• ?：匹配 0 次或 1 次，比如https?能匹配 “http” 或 “https”（s 可有可无）；
• {n}：匹配正好 n 次，{n,}至少 n 次，{n,m}n 到 m 次，比如\d{4}匹配 4 个数字（年份常用）。

之前有学员手动写\d\d\d\d匹配年份，其实用\d{4}更简洁，还不容易出错。比如匹配手机号（11 位数字）：
perl

my $phone = "我的电话是13812345678";if ($phone =~ /(\d{11})/) {print "手机号：$1\n";  # 正好11位，输出13812345678}

二、进阶技巧：让匹配更 “聪明”，这 3 招解决 80% 复杂需求

基础符号会了，再学这几个进阶技巧，就能处理更复杂的文本了。
1. 分组与反向引用：重复利用匹配内容，替换文本超方便
想在替换时重复前面匹配的内容？用()分组，再用$1 $2引用就行。比如把 “姓名：张三” 改成 “张三（姓名）”：
perl

my $str = "姓名：张三，年龄：20";$str =~ s/姓名：(\w+)/$1（姓名）/;  # 分组提取“张三”，替换时用$1引用print $str;  # 输出“张三（姓名），年龄：20”

分组还能用于 “或” 逻辑，用|分隔选项，比如匹配邮箱时允许 “com” 或 “cn” 后缀：
perl

my $email = "test@example.com";if ($email =~ /(\w+@\w+\.(com|cn))/) {  # 允许com或cn后缀print "有效邮箱：$1\n";}

2. 锚点：限定匹配位置，避免 “误伤” 其他内容
有时候匹配会 “跑偏”，比如想匹配开头的 “ID”，结果中间的 “ID” 也被匹配了，这时候用锚点就能固定位置：

• ^：匹配字符串开头，比如^ID: \d+只匹配开头的 “ID: 123”；
• $：匹配字符串结尾，比如\d+$只匹配结尾的数字（比如金额）；
• \b：匹配单词边界，比如\bcat\b只匹配 “cat”，不匹配 “category” 里的 “cat”。

有学员提取 “IP: 192.168.1.1” 时，用IP: (\d+\.\d+\.\d+\.\d+)总把后面的 IP 也匹配了，加上^限定开头就好了：
perl

my $log = "IP: 192.168.1.1，访问时间：10:00";if ($log =~ /^IP: (\d+\.\d+\.\d+\.\d+)/) {  # ^限定从开头匹配print "开头IP：$1\n";  # 只提取开头的IP}

3. 模式修饰符：改变匹配规则，让正则更灵活
默认匹配有很多限制，用修饰符能打破限制，常用的有这几个：

• /i：忽略大小写，比如/abc/i能匹配 “ABC”“aBc”；
• /g：全局匹配，替换时替换所有符合条件的内容，不加只换第一个；
• /s：让.匹配换行符，默认.不匹配换行，加s后能匹配整个文本块。

比如批量替换文本里的 “name”，不管大小写都换成 “用户名”：
perl

my $text = "Name: Tom，NAME: Jerry";$text =~ s/name/用户名/gi;  # i忽略大小写，g全局替换print $text;  # 输出“用户名: Tom，用户名: Jerry”

三、实战技巧：从新手到高手的 3 个效率提升法，学员亲测有效

光会语法不够，结合实战技巧才能真正提高效率，这几招都是学员用出来的经验。
1. 先 “测试” 再 “替换”，避免批量操作出错
批量处理文本时，最怕替换错内容，建议先打印匹配结果，确认无误再执行替换。比如想替换日志里的敏感词，先这样测试：
perl

my $log = "用户密码：123456，手机号：13800000000";# 先打印要替换的内容，不实际替换if ($log =~ /(密码：\d+)/) {print "准备替换：$1\n";  # 确认匹配正确，再执行替换}# 确认无误后再替换$log =~ s/密码：\d+/密码：******/g;print "替换后：$log\n";

有学员没测试直接替换，结果把正常内容也改了，找回原文件花了半天，这步千万别省。
2. 复杂匹配分 “多步”，别追求 “一行搞定”
新手总想着用一个正则解决所有问题，结果越写越乱。其实可以分多步处理，比如提取带引号的内容，再去掉引号：
perl

my $str = '书名："Perl入门"，作者："兔子哥"';# 第一步：提取带引号的内容my @matches = $str =~ /"(.+?)"/g;  # .+?是非贪婪匹配，避免匹配到多个引号# 第二步：处理提取的内容foreach my $item (@matches) {print "提取到：$item\n";  # 输出Perl入门、兔子哥，已经去掉引号了}

这里的+?是非贪婪模式，会匹配到最近的引号就停止，比贪婪模式+更精准，处理带引号的文本必用。
3. 善用正则调试工具，写不出来就 “可视化”
写复杂正则时卡壳很正常，推荐用在线工具调试，比如 Regex101（支持 Perl 模式），输入文本和正则，能实时看到匹配结果，还会解释每个符号的作用。有学员说：“之前写邮箱匹配正则卡了半小时，用工具一调试，发现少了个+，立马就好了。”
兔子哥觉得，学正则最忌讳 “死记硬背”，关键是多练实际场景。比如从今天开始，处理文本时别再手动找内容，逼着自己用正则解决，哪怕一开始写得慢，练一周就会越来越顺。
其实正则就像一门 “文本方言”，掌握基础词汇后，多和文本 “对话” 自然就熟练了。遇到复杂需求别慌，先拆成小问题，比如提取邮箱可以拆成 “用户名 +@+ 域名 + 后缀”，每个部分用简单正则匹配，再组合起来。
最后想说，Perl 的正则之所以强大，就是因为它灵活又直观，新手不用追求成为 “正则大师”，能解决自己工作中的问题就够了。现在就打开你的文本文件，试试用今天学的技巧提取一段内容，你会发现原来要半小时的活儿，现在几分钟就搞定了，这种成就感就是最好的学习动力！

标签： 正则表达式 万能钥匙