分析HTML：：Parser模块 [复制链接]

电梯直达

1楼 [收藏(0)] [报告]

发表于 2011-03-15 18:15 |只看该作者 |倒序浏览

大侠们帮忙分析一下以下代码都是什么意思？谢谢了，看完一些英文文档还是不怎么明白。
use HTML:

arser ();

sub start_handler
{
return if shift ne "title";
my $self = shift;
$self->handler(text => sub { print shift }, "dtext"

;
$self->handler(end => sub { shift->eof if shift eq "title"; },
"tagname,self"

;
}

my $p = HTML:

arser->new(api_version => 3);
$p->handler( start => \&start_handler, "tagname,self"

;
$p->parse_file(shift || die) || die $!;
print "\n";

2楼 [报告]

发表于 2011-03-15 18:28 |只看该作者

回复 1# Dragon_yao

你只用知道 HTML:

arser 的工作原理就够了，其实很简单（如果你对 Perl 本身不熟，那你还是找别人解释吧）。
简单的说，HTML:

arser 分析 HTML 文件的时候，可以指定三个 handler，分别用来处理开标签，文本和闭标签。Over.