[英]Parse html using Perl
I have the following html- 我有以下html-
<a href="http://address.com">John</a>: I really <b>love</b> <b>soccer</b>;
I want to parse it into a csv where I would have 我想将其解析为csv
name = John 名字=约翰
comment = I really love soccer. 评论=我真的很喜欢足球。
key words = love, soccer 关键字=爱,足球
in the console app, any help is much appreciated. 在控制台应用中,非常感谢您的帮助。
There are plenty of HTML parsers on CPAN, my preferred one is HTML::TreeBuilder::XPath CPAN上有很多HTML解析器,我首选的是HTML :: TreeBuilder :: XPath
Text::CSV will help you generate a CSV from the extracted data. Text :: CSV将帮助您从提取的数据中生成CSV。
Here is an example how to do parsing with HTML::TreeBuilder : 这是一个如何使用HTML :: TreeBuilder进行解析的示例:
use HTML::TreeBuilder;
my $html = HTML::TreeBuilder->new_from_content(<<END_HTML);
<a href="http://address.com">John</a>: I really <b>love</b> <b>soccer</b>;
END_HTML
my $name = $html->find('a')->as_text; # "John"
my @keywords = map { $_->as_text } $html->find('b'); # "love", "soccer"
my $comment = $html->as_text; # "John: I really love soccer; "
Cleaning up $comment
is left as an exercise. 清理
$comment
留作练习。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.