＋设为首页 ＋添加到收藏夹
我想打开一个web页把<font size=3 color=red>替换成空。
比如
$ss="code like <font size=8 color=red>this</font>"
$ss=~s/问题如填写这儿的代码？ //g;
同时能替换所有的以<font 和>结尾的所有字符串.也就是整个web文档没有font标记.
最后使结果为code like this</font>
#!/usr/bin/perl
$ss=qq(asdfj<font color=8>dkasd</font>das<font size=3 face="任意字体">sdfa</font>);
$ss=~s/<font.*?>//g;
print $ss,"\n";
print "asdfjdkasd</font>dassdfa</font>","\n";
print "ok" if($ss eq "asdfjdkasd</font>dassdfa</font>");
<>;
