如何将匹配的正则表达式的值保存到perl的一行变量中？

Question

我确信有一种非常简单的方法可以做到这一点，但每当我搜索示例时，我都会得到两步法。下面是我通常要做的：

$data =~ m/(my_query)/;
$result = $1;

我希望将$result设置为与正则表达式相同的行，并且从不使用$1。谢谢！

Answer 1

my($result) = ($data =~ m/(my_query)/);

正如注释中所指出的，my($result)需要括号来提供匹配结果的数组上下文。在数组上下文中，您将获得分配给数组的$1等。您可以使用@result = ($data =~ m/(my_query)/);；您可以省略my，但需要保留括号；您可以使用$result = ($data =~ m/(my_query)/)[0]; (感谢ysth)为数组添加下标。这里的关键词是“数组上下文”。

示例：

$ perl -e '$data="abcdef";my($result)=($data =~ m/(cde)/); print "$result\n"'
cde
$ perl -e '$data="abcdef";  ($result)=($data =~ m/(cde)/); print "$result\n"'
cde
$ perl -e '$data="abcdef";   @result =($data =~ m/(cde)/); print "$result[0]\n"'
cde
$ perl -e '$data="abcdef";   $result =($data =~ m/(cde)/)[0]; print "$result\n"'
cde
$

Answer 2

$data =~ /(my_query)/;
my $result = $1;

当模式不匹配时，您可以使用条件将有用的内容分配给$result

my $result = $data =~ /(my_query)/ ? $1 : undef;

my ($result) = $data =~ /(my_query)/;

Answer 3

$data="abcde";
$data =~ s/(cde)/$result=$1/e;