使用Perl解析HTML

Question

我有以下html-

<a href="http://address.com">John</a>: I really <b>love</b> <b>soccer</b>;

我想将其解析为csv

名字=约翰

评论=我真的很喜欢足球。

关键字=爱，足球

在控制台应用中，非常感谢您的帮助。

Answer 1

CPAN上有很多HTML解析器，我首选的是HTML :: TreeBuilder :: XPath

Text :: CSV将帮助您从提取的数据中生成CSV。

Answer 2

这是一个如何使用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; "

清理$comment留作练习。