使用perl分析html文件(1) z-优快云博客

文章的背景是，作者在教授网页编辑的课程，他会给学生做一些使用nvu做网页作业，每个作业中有些特定的要求，作者苦于给学生的作业评分和做注释，所以就想到使用perl程序对学生的作品进行分析。

perl的正则表达式在文本处理方面的能力已经非常卓越，并且还有分解网页的专用模组HTML::TreeBuilder。它提供了一个html的分解器，这个分解器可以从一个网页构建出一个元素的树形结构。并且，从一个网页中建立一棵树和构建它的内容是非常容易的：

#新建一棵树 $tree = HTML::TreeBuilder->new; #由一个网页文件构建树的内容 $tree->parse_file($file_name); #当然也可以由一个变量的内容中分解出树的内容 $tree->parse($value);

树的节点是一个HTML::Element对象。这有很多方法可以存取和操作树中的这些节点。当你使用完成了这棵树的时候，可以使用下面的方法销毁它并且释放它占用的内存：

$tree->delete;

在HTML::TreeBuilder建立的树形结构中，一个模组HTML::Element代表一个html元素。它有大量的方法存取和操作这些元素和搜寻树中的子孙节点和祖先节点。例如：方法find()使用一个或更多的标签名作为参数来寻找所有的下行的相关节点：

@elements = $element->find('a', 'img');

上面这条语句将把所有$element节点以下的<a>节点和<img>节点存储在@elements数组里。方法look_down()是比find()更强大的搜索方法。它以三种类型的方法来查找下行节点：1，严格指定标签的名称或属性值。2，使用正则表达式匹配。3，通过一个返回真的子函数来确定想要的节点。下面是一些例子：

@anchors = $element->look_down('_tag' => 'a');

找到所有的$element下的<a>节点，并存储到@anchors数组中。

@colors = $element->look_down('style' => qr/color/);

找到所有的$element下的含有style属性并且该属性包括color的节点，并存储到@anchors数组中。

@largeimages = $element->look_down( sub { $_[0]->tag() eq 'img' and ($_[0]->attr('width') > 100 or $_[0]->attr('height') > 100) } );

找到所有的$element下的<img>节点并且节点中的width和height属性必须大于100像素，并存储到@largeimages数组中。注意：这样的语句在检测到没有width和height属性的<img>节点时会产生一个警告信息。

我们还可以混用三种方法，例如：

@largeimages = $element->look_down(
    '_tag' => 'img',
    'width' => qr//,
    'height' => qr//,
    sub { $_[0]->attr('width') > 100 or
          $_[0]->attr('height') > 100 }
);