说,我有一行包含以下字符串:
“$tom”说废话废话。“$dick”说“等等等等”。“$harry”说废话废话。
我想提取
"$dick" 说 "blah blah blah"
我有以下代码:
my ($term) = /(".+?" said ".+?")/g;
print $term;
但它给了我比我需要的更多:
“$tom”说废话废话。"$dick" 说 "blah blah blah"
我尝试使用非捕获括号将我的模式作为一个整体进行分组:
my ($term) = /((?:".+?" said ".+?"))/g;
但问题仍然存在。
我已经重读了 Learning Perl 的 Nongreedy Quantifiers 部分,但到目前为止它让我无处可去。
感谢您慷慨提供的任何指导:)