什么是正则引用捕获
在ref="/tag/2034/" style="color:#E3A3CF;font-weight:bold;">Perl中处理文本时，经常会遇到需要从一段字符串中提取特定部分的情况。比如从日志里抓取IP地址，或者从用户输入中分离姓名和电话。这时候，正则表达式中的“捕获”功能就派上用场了。而“引用捕获”指的是在匹配过程中捕获某些子模式，并在后续操作中引用这些被捕获的内容。
使用括号进行捕获
在Perl正则中，用圆括号()包裹的部分会被当作一个捕获组。每个捕获组会按从左到右的顺序编号，第一个左括号开始的就是$1，第二个是$2，依此类推。
例如，有一行用户信息：
my $line = "用户名: 张三, 邮箱: zhangsan@example.com";
if ($line =~ /用户名: (\w+), 邮箱: (\S+)/) {
print "捕获到姓名: $1\n";
print "捕获到邮箱: $2\n";
}
运行后会输出：
捕获到姓名: 张三
捕获到邮箱: zhangsan@example.com
在替换中使用捕获
引用捕获最常见的用途之一是在s///替换操作中重排或格式化文本。比如想把“姓 名”调换成“名, 姓”的格式：
my $name = "李 四";
$name =~ s/(\S+)\s+(\S+)/$2, $1/;
print $name; # 输出：四, 李
这里$1对应“李”，$2对应“四”，通过替换模式中的$2, $1实现了顺序调换。
命名捕获让代码更清晰
当捕获组多了以后，靠数字记忆容易出错。Perl支持命名捕获，可以用(?<name>...)语法给捕获组起名字。
my $text = "订单号: ORD-2024-9527，时间: 2024-03-20";
if ($text =~ /订单号: (?<order>ORD-\d+-\d+).*?时间: (?<date>\d{4}-\d{2}-\d{2})/) {
print "订单: $+{order}\n";
print "日期: $+{date}\n";
}
使用%+哈希可以访问命名捕获的内容，代码读起来更直观，维护也更容易。
嵌套捕获与引用顺序
捕获组允许嵌套，但编号只看左括号出现的顺序。例如：
my $str = "联系电话：(010)8888-1234";
if ($str =~ /(\((\d+)\))?(\d{4}-\d{4})/) {
print "区号部分: $1\n";
print "纯区号: $2\n";
print "电话号码: $3\n";
}
尽管第二组被包含在第一组中，但它仍然是$2，因为它的左括号是第二个出现的。
在匹配后修改原文
有时候不只是查看捕获内容，还想基于这些内容做进一步处理。比如把所有形如“年-月-日”的日期改成“月/日/年”格式：
my $log = "系统于2024-03-20检测到异常";
$log =~ s/(\d{4})-(\d{2})-(\d{2})/$2/$3/$1/g;
print $log; # 输出：系统于03/20/2024检测到异常
这里的$1、$2、$3分别代表年、月、日，在替换部分直接引用并调整顺序。
避免不必要的捕获
如果只是需要用括号分组但不需要捕获，可以用(?:...)语法。这样可以提升性能，也能避免干扰其他捕获编号。
my $url = "https://example.com";
if ($url =~ /^https?:\/\/(?:www\.)?([^\/]+)/) {
print "域名: $1\n"; # $1 是 example.com，中间的www.不会占一个捕获位
}