<font style="font-size: 14px; line-height: 17pt;" color="#000000">功能:把文本中含有&lt;books:xxxxx&gt;的部分全部替换为空<br>遇到问题:当字符串为&lt;books:xxxxx&gt;开头并且以它结尾的时候把整个字符串都给替换了,现在求一正确的方法,多谢.<br>代码如下 
<br>sub strip_books {<br>&nbsp; my $str = shift;<br>&nbsp; my %allowed = 
allbooks;<br><br>&nbsp; my $j = Jcode-&gt;new(\$str, 'utf-8');<br><br>&nbsp; 
$j-&gt;s(&quot;(&lt;books:(.+)&gt;)&quot;, exists $allowed{$2} ? '' : $1);<br>&nbsp; <br>&nbsp; 
return $j-&gt;utf8;<br>} <br></font>