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