推荐答案
在 Perl 中，捕获组（Capturing Group）是通过圆括号 () 来定义的。捕获组允许你从匹配的字符串中提取特定的部分。捕获的内容可以通过特殊变量 $1, $2, $3 等来访问，或者通过列表上下文中的正则表达式匹配结果来获取。
示例代码
my $string = "Hello, my email is example@example.com";
if ($string =~ /(\w+@\w+\.\w+)/) {
print "Email found: $1\n";
}在这个例子中，正则表达式 (\w+@\w+\.\w+) 定义了一个捕获组，用于匹配电子邮件地址。匹配成功后，$1 变量将包含捕获的电子邮件地址。
本题详细解读
捕获组的基本用法
捕获组是通过在正则表达式中使用圆括号 () 来定义的。圆括号内的部分会被捕获，并且可以在匹配成功后通过 $1, $2, $3 等变量来访问。
多个捕获组
你可以在一个正则表达式中定义多个捕获组，每个捕获组的内容会依次存储在 $1, $2, $3 等变量中。
my $string = "John Doe, 30 years old";
if ($string =~ /(\w+)\s+(\w+),\s+(\d+)\s+years old/) {
print "First Name: $1\n";
print "Last Name: $2\n";
print "Age: $3\n";
}在这个例子中，正则表达式定义了三个捕获组，分别用于匹配名字、姓氏和年龄。
非捕获组
如果你只想使用圆括号进行分组，而不想捕获内容，可以使用非捕获组 (?:...)。
my $string = "Hello, my email is example@example.com";
if ($string =~ /(?:\w+@\w+\.\w+)/) {
print "Email found, but not captured.\n";
}在这个例子中，正则表达式 (?:\w+@\w+\.\w+) 使用了非捕获组，匹配的电子邮件地址不会被捕获到 $1 中。
命名捕获组
Perl 还支持命名捕获组，通过 (?<name>...) 语法来定义。命名捕获组的内容可以通过 %+ 哈希来访问。
my $string = "John Doe, 30 years old";
if ($string =~ /(?<first>\w+)\s+(?<last>\w+),\s+(?<age>\d+)\s+years old/) {
print "First Name: $+{first}\n";
print "Last Name: $+{last}\n";
print "Age: $+{age}\n";
}在这个例子中，正则表达式定义了三个命名捕获组，分别用于匹配名字、姓氏和年龄，并通过 %+ 哈希来访问捕获的内容。
捕获组的嵌套
捕获组可以嵌套使用，嵌套的捕获组会按照从左到右的顺序依次编号。
my $string = "The date is 2023-10-05";
if ($string =~ /(\d{4})-(\d{2})-(\d{2})/) {
print "Year: $1\n";
print "Month: $2\n";
print "Day: $3\n";
}在这个例子中，正则表达式定义了三个嵌套的捕获组，分别用于匹配年、月和日。
捕获组的应用场景
捕获组在文本处理、数据提取、日志分析等场景中非常有用。通过捕获组，你可以轻松地从复杂的字符串中提取出所需的信息。