| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3927 人关注过本帖
标题:HTML::TreeBuilder用法
只看楼主 加入收藏
xueming56
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2015-3-14
收藏
 问题点数:0 回复次数:1 
HTML::TreeBuilder用法
各位大侠请教HTML::TreeBuilder的用法。能提供HTML::TreeBuilder文档教程吗
2016-12-04 14:25
自学的数学
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:贵宾
威 望:46
帖 子:967
专家分:4146
注 册:2017-11-15
收藏
得分:0 
程序代码:
HTML::TreeBuilder继承自HTML::Parser和HTML::Element,所以下面讲的很多方法实际上源于HTML::Parser和HTML::Element。

拿下面这个HTML文件开刀:

<html lang='i-klingon'>
     <head><title>Pati Pata</title></head>
     <body>
       <h1 lang='la'>职工</h1>
       <p lang='es-MX' align='center'>
         Foo bar baz <cite>Quux</cite>.
       </p>
       <p>Hooboy.</p>
     </body>
  </html>
perl代码:

#!/usr/bin/perl
use HTML::Element;
use HTML::TreeBuilder;

 
foreach my $file_name (@ARGV) {
    my $tree = HTML::TreeBuilder->new;
    $tree->parse_file($file_name);
    $head=$tree->find_by_tag_name('head');      ##找到head节点
    print $head->attr('_parent')->as_text();        ##_parent属性的值是html节点
    print "\n";
    $tree = $tree->delete;
}

 首先根据一个文件创建了一棵HTML结构解析树tree,注意tree,注意tree本身也是HTML::Element的一个实例,因为HTML::TreeBuilder继承自

HTML::Element。

调用<html>节点的as_text输出:Pati Pata职工 Foo bar baz Quux. Hooboy.

如果把find_by_tag_name('head')改成find('head')方法,效果一样。

如果把head&#8722;>attr(′parent′)改成head−>attr(p′arent′)改成head->look_up('lang','i-klingon')效果一样。同样你应该look_down()怎么用了。


 

#!/usr/bin/perl
use HTML::Element;
use HTML::TreeBuilder;
use HTML::Parser;

 
foreach my $file_name (@ARGV) {
    my $root = HTML::TreeBuilder->new;
    $root->parse_file($file_name);
    $body=$root->find_by_tag_name('body');
    $p=$body->find_by_attribute('lang','es-MX');  ##在当前节点及其子节点下寻找lang属性为es-MX的节点
    print $p->as_text();
    print "\n";
    $tree = $root->delete;
}
输出: Foo bar baz Quux. 
find_by_attribute不能向上查找,试图通过find_by_attribute('lang','i-klingon')来找到<html>节点是行不通的。
p=p=body->look_down('lang','es-MX');效果是一样的。

还可以这样来寻找<p>节点:

$p=$body->look_down('_tag','p',
                        'align','center',
                        sub{$_[0]->attr('lang')=~qr/es/}
                        );

 

@childern=$root->content_list;      ##返回content列表。即返回包含head和body的列表
    foreach(@childern){
        print $_->as_text();
        print "\n";
    }
输出:

Pati Pata

职工 Foo bar baz Quux. Hooboy.

在标量环境下$root->content_list返回list的长度,在其他情况下如果把一个list返回给一个标量,则是返回list中的第一个元素。


 

foreach my $node_r ($p->content_refs_list){
        next if ref $$node_r;
        print $$node_r;
        print "\n";
    }
输出两行:

  Foo bar baz


 . 

之所以没有输出Quux就是因为ref $$node_r返回true了$p->dump()输出结果为:

<p align="center" lang="es-MX"> @0.1.1 


 " Foo bar baz " 


 <cite> @0.1.1.1    

"Quux"  

". "

dump(*FH)   dump到一个文件中。

print $p->as_HTML();

输出:<p align="center" lang="es-MX"> Foo bar baz <cite>Quux</cite>. 注意没有输出结尾标签</p>。

print $p->as_text(skip_dels=>1,extra_chars=>'\xA0');

“del"节点下的content text将被忽略,同时text string中多个连续的空格将被合并为一个空格。

$p->as_XML();

输出:<p align="center" lang="es-MX"> Foo bar baz <cite>Quux</cite>. </p>。除了比as_HTML多一个</p>外,还多一个换行符。

print $p->as_Lisp_form();
输出:
("_tag" "p" "align" "center" "lang" "es-MX" "_content" (
  " Foo bar baz "
  ("_tag" "cite" "_content" (
    "Quux"))
  ". "))
2018-06-20 10:50
快速回复:HTML::TreeBuilder用法
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016354 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved