我怎麼能代替「<」 and 「>」與「<」和「>除了<img src="">和<a href="">text</a>標籤在Perl

Question

我想更換<和>與<和>除了在Perl <img src="">和<a href="">text</a>標籤通過使用正則表達式：

$a= qq~<a href="">test</a> <script> <img src="">~; 
$a =~ s/<([^img|a])/&lt;$1/ig; 
$a =~ s/([^<a(.*?)])>/$1&gt;/ig; 
print "\n$a\n"; 

但它替換內 '>' 也喜歡

<a href=""&gt;test&lt;/a> &lt;script&gt; <img src=""&gt; 

Answer 1

你可以試試這個簡單的方法：

$a =~ s/</&lt;/g; 
$a =~ s/>/&gt;/g; 
# Fix "a" & "img" 
$a =~ s/&lt;a\s(.*?)&gt;(.*?)&lt;\/a&gt;/<a $1>$2<\/a>/g; 
$a =~ s/&lt;img\s(.*?)&gt;/<img $1>/g; 

注：

[^img|a]是not i,m,g,a or |

如果你需要找到<後面沒有img或a - 使用負前瞻：

/<(?!img|a)/