regex - Perl 正则表达式匹配的第一个实例？跨多行

Question

我正在尝试使用正则表达式解析电子邮件回复。我的回复如下:

This is my response.
Some text here

?



?



From: Lastname, Firstname

Sent: Saturday, January 05, 2013 7:37 PM

To: Lastname, Firstname

Subject: Some Subject



?



Some Text

我有兴趣解析直到第一个 ?. 我尝试使用单行模式和 $response =~/^(.*)\?\n/s;。但这会让我回到最后的一切？。任何帮助将不胜感激。

Answer 1

.* 是贪婪的。非贪婪版本 .*? 应该可以工作。