小编use*_*343的帖子

当我尝试在Perl脚本中实现预编译的正则表达式时,我遇到了一些匹配问题.我有脚本工作没有预编译,任何时候我有一个跨越行的快递,它在预编译时不返回任何匹配.例如:

my $regex_partner = qr/<h1 id="PartnerName">(?<partner_name>.*?)<\/h1>/;
$content =~ $regex_partner;
$partner_name = $+{partner_name};

在预编译时工作正常,但是:

my $regex_web =~ qr/Company Website:.*openWindow[(]'(?<website>http:\/\/.*?)'/s;
$content =~ $regex_web;
$website = $+{website};

什么都不返回,但如果我拿出整个预编译就行了.似乎任何时候使用qr // s,它都行不通.

救命？