Html Perl RegExp如果内容样式参数

我有一个

Perl

RegExp问题。给定此HTML代码：

<a href="#"><img src="..." alt="..." title="..."></a>
<a href="#"><img src="..." alt="..." style="display: none;" title="..."></a>
<a href="#"><img src="..." alt="..." title="..." style="display: none;"></a>
<a href="#"><img src="..." style="display: none;" alt="..." title="..."></a>
<a href="#"><img style="display: none;" src="..." alt="..." title="..."></a>

$html=~s | | | g

---

这是检查

a

标签内的

img

标签。并且还检查给定的

style

属性是否驻留在

img

中。

类似于以下内容的内容：

if ($html =~ /(<a href="#"><img style="display:\s*none;".*?<\/a>)/g) {
    remove($1);
}

if（$html=~/(
$html =~ s|<a\s+href[^>]*>\s*<img[^>]*style="display: none;"[^>]*>\s*</a>||g

if ($html =~ /(<a href="#"><img style="display:\s*none;".*?<\/a>)/g) {
    remove($1);
}