Perl 正则表达式匹配双引号之间的所有内容？

Question

文本是：

some text here x"/get/me/out/of/here.png"

如何获取双引号之间的所有内容？

这似乎不起作用：

if ($text =~ /".+?"/) {
 print"found: $1\n";
}

谢谢。

Answer 1

您需要有一个 $1，因此请用括号括住 .+?：

$text = 'foo "bar baz" mu';

if ($text =~ /"(.+?)"/) {
  print"found: $1\n";
}

prints:

bar baz

或使用 $& 来获取整个匹配项 (< code>“bar baz”：包括双引号）：

if ($text =~ /".+?"/) {
  print"found: 
amp;\n";
}

Answer 2

与往常一样，每当您认为正则表达式是最佳解决方案（有时可能是）时，快速访问 CPAN 可能会为您找到更好的解决方案。在本例中 Text::Balanced。有 extract_delimited 或 extract_quotelike 函数可以提取指定引号之间的文本。

仔细阅读说明，因为它有有用但可能意想不到的行为。然而，它可能非常有用，特别是当您必须重复提取时。