如果您堅持使用正則表達式，大多數情況下都可以使用這樣的方法：

# Remove all HTML except "p" tags

$html =~ s{/?)(?:[^pP]|[pP][^\s>/])[^>]*>}{}g;

說明：

s{

< # opening angled bracket

(?>/?) # ratchet past optional /

(?:

[^pP] # non-p tag

| # ...or...

[pP][^\s>/] # longer tag that begins with p (e.g.,

)

)

[^>]* # everything until closing angled bracket

> # closing angled bracket

}{}gx; # replace with nothing, globally

但是真的，保存自己一些頭痛，并使用解析器。 CPAN有幾個適合的模塊。以下是使用功能非常強大的HTML::Parser CPAN發行版HTML::TokeParser模塊的示例：

use strict;

use HTML::TokeParser;

my $parser = HTML::TokeParser->new('/some/file.html')

or die "Could not open /some/file.html - $!";

while(my $t = $parser->get_token)

{

# Skip start or end tags that are not "p" tags

next if(($t->[0] eq 'S' || $t->[0] eq 'E') && lc $t->[1] ne 'p');

# Print everything else normally (see HTML::TokeParser docs for explanation)

if($t->[0] eq 'T')

{

print $t->[1];

}

else

{

print $t->[-1];

}

}

HTML::Parser以文件名，打開文件句柄或字符串的形式接受輸入。將上述代碼包裝在庫中，使目的地可配置(即不僅如上所述打印)并不難。結果將比使用正則表達式更可靠，可維護，也可能更快(HTML :: Parser使用基于C的后端)。

總結

以上是生活随笔為你收集整理的正则判断是否有html标签,正则表达式匹配所有HTML标签,除了和的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。