{var%20f='http://v.t.sina.com.cn/share/share.php?appkey=1515056452',u=z||d.location,p=['&url=',e(u),'&title=',e(t||d.title),'&source=',e(r),'&sourceUrl=',e(l),'&content=',c||'gb2312','&pic=',e(p||'')].join('');function%20a(){if(!window.open([f,p].join(''),'mb',['toolbar=0,status=0,resizable=1,width=440,height=430,left=',(s.width-440)/2,',top=',(s.height-430)/2].join('')))u.href=[f,p].join('');};if(/Firefox/.test(navigator.userAgent))setTimeout(a,0);else%20a();})(screen,document,encodeURIComponent,'','','https://www.manongdao.com/data/attach/logo/logo.png', '推荐 疯言疯语 的问题《strip HTML Tags with perl》','https://www.manongdao.com/q-215480.html','页面编码gb2312|utf-8默认gb2312'));){kind=link}
Whats the easiest way to strip the HTML tags in perl. I am using a regular expression to parse HTML from a URL which works great but how can I strip the HTML tags off?
Here is how I am pulling my HTML
#!/usr/bin/perl -w
use strict;
use warnings;
use LWP::Simple;
my $now_string = localtime;
my $html = get("http://www.spc.noaa.gov/climo/reports/last3hours.html")
or die "Could not fetch NWS page.";
$html =~ s/<script.*?<\'/script>/sg;
$html =~ s/<.+?>//sg;
$html =~ m{(Hail Reports.*)Wind Reports}s || die;
my @hail = $1;
If you just want to remove HTML tags:
This will (most of the time) remove script tags and their contents, and all other HTML tags. You could also probably remove everything before the
<body>tag safely with regex.For anything more complex than that, though, regular expressions are not a suitable tool, and you really need to parse the HTML with an actual HTML parser and then manipulate that to remove the tags.
As mentioned, don't use regular expressions for this. There are simply too many exceptions.
One CPAN module which can help is HTML::Strip:
It's worth learning what's available on the CPAN and making use of it. It will save you a lot of work in the long run.
Have a look at the HTML::Restrict module which allows you to strip away or restrict the HTML tags allowed. A minimal example that strips away all HTML tags:
I would recommend to stay away from HTML::Strip because it breaks utf8 encoding.
there is also a nice Perl module HTML::Scrubber.
An attempt to answer your misguided question
Problems
It's a bad habit to get into regex'ing out HTML because there are so many rules and ways to get around them, that may eventually open your code up to hacking techniques. While you might have a legitimate need for something simple now, it is very easy to reuse code and forget why it was a bad idea to reuse it, especially when you don't add comments like
# This code is NOT secure and should not be used to parse HTML anywhere else!!!or# Christina Alguilera writes songs based on this code!!!Example of differences in HTML that require lots of regex rules:
The list goes on and that's only for well-formed HTML. Some other examples of problems include:
<div><span></div></span>) or not at all<dvi>..</div>)Solution
You may have accepted an answer, but you should look at XML::Parser and HTML::TreeBuilder.
Rather than stripping out parts of the HTML Document, you are probably more interested in drilling down to the part of the document you want (eg everything in
<body>or a certaindivinside of it), which is why you most likely want something that one of the above modules provide. Not to mention, parsers can be used to do their best at removing all HTML elements and returning only text/CData.