perl正则表达式过滤html代码
展开全部
帮你写了完整的代码：
#!/usr/bin/perl -w
=File decalaration
Function:
perl正则表达式过滤html代码
http://zhidao.baidu.com/question/510917594.html
Author: Crifan Li
Version: 2012-12-27
Contact: admin at crifan dot com
=cut
use warnings;
$origHtml = <<END;
<h1>123</h1>
<p style="">456</p>
END
#print("origHtml=", $origHtml);
$filteredHtml = $origHtml;
$filteredHtml =~ s/<([a-zA-Z]\w*)(\s+\S+)*>(.+?)<\/\1>/$3/sg;
print "after remove html tag=",$filteredHtml;
# after remove html tag=123
# 456
感兴趣的，可以去看：
crifan 正则表达式学习心得
（这里不给贴地址，请自己用google搜标题，即可找到帖子地址）
#!/usr/bin/perl -w
=File decalaration
Function:
perl正则表达式过滤html代码
http://zhidao.baidu.com/question/510917594.html
Author: Crifan Li
Version: 2012-12-27
Contact: admin at crifan dot com
=cut
use warnings;
$origHtml = <<END;
<h1>123</h1>
<p style="">456</p>
END
#print("origHtml=", $origHtml);
$filteredHtml = $origHtml;
$filteredHtml =~ s/<([a-zA-Z]\w*)(\s+\S+)*>(.+?)<\/\1>/$3/sg;
print "after remove html tag=",$filteredHtml;
# after remove html tag=123
# 456
感兴趣的，可以去看：
crifan 正则表达式学习心得
（这里不给贴地址，请自己用google搜标题，即可找到帖子地址）
追问
不对哈。
连
都不能过滤
你试试。
追答
本来就不能过滤
因为我写的是
(.+?)
而不是：
(.*?)
我写成什么样的，主要取决于你给我的要求
你要是要求我能处理什么，我就给你写成什么样的代码。
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
