如何从Perl正则表达式中仅抓取一个捕获？

要从Perl正则表达式中仅抓取一个捕获，您可以使用括号()来创建一个捕获组。括号内的正则表达式将被视为一个整体，并且可以通过编程语言中的相应函数或方法来提取匹配的部分。

例如，假设您有以下正则表达式：

/(cat|dog)/

这个正则表达式将匹配"cat"或"dog"，并将它们放入第一个捕获组中。

在Perl中，您可以使用$1变量来访问第一个捕获组中的匹配内容。例如：

my $string = "The cat is black";
my $regex = /(cat|dog)/;
if ($string =~ /$regex/) {
    print "Matched: $1\n";
}

这将输出：

Matched: cat

在其他编程语言中，您可能需要使用不同的方法或函数来提取捕获组中的内容。例如，在Python中，您可以使用re模块的search()方法来查找匹配项，并使用group()方法来提取捕获组中的内容：

import re

string = "The cat is black"
regex = re.compile("(cat|dog)")
match = regex.search(string)
if match:
    print("Matched:", match.group(1))

这将输出：

Matched: cat

请注意，这只是一个简单的示例，实际应用中可能需要更复杂的正则表达式和更多的捕获组。