perl測試內容，看看是否包含HTML

Question

我想測試用戶提交的內容，看看是否包含HTML，我寧願這樣做，而不必編寫自己的正則表達式。有沒有人知道這是一個模塊，或者這是一個很好的方式在Perl中做到這一點？

Answer 1

您可以檢查HTML::Restrict模塊允許將內容僅限制在允許的標籤中。

實施例：

use 5.012; 
use strict; 
use warnings; 
use HTML::Restrict; 
use Data::Dumper; 

my @texts = map { { "has_html", 0, "text", $_ } } 
      split(/==cut-here==/, do{ local $/; <DATA> }); 

my $res = HTML::Restrict->new(); 

foreach my $text (@texts) { 
    my $tmp = $text->{text}; 
    my $plain = $res->process($tmp); 
    $plain =~ s/\s//gs; 
    $tmp =~ s/\s//gs; 
    $text->{has_html} = $tmp cmp $plain ? "YES" : "NO"; 
} 
say Dumper(\@texts); 

__DATA__ 

    <img src="image.jpg" alt="tricky>text" /> 

    text with html 
==cut-here== 

plain 

text here 

==cut-here==again <!-- a > b --> with html==cut-here== 
plain 

將檢查4塊的文本和檢測用於HTML。如果您配置HTML::Restrict，則可以使用「允許」和「不允許」HTML標籤進行檢查。