perl HTML::TokeParser

发布时间：2020-12-16 00:43:06 所属栏目：大数据来源：网络整理

导读：学习HTML::TokeParser，此模块比HTML: arser简单很多。看代码： #! /usr/local/bin/perl use LWP::Simple; use Data::Dumper; use HTML::TokeParser; use Encode; my $content = get("http:// www.sina.com.cn /"); Encode::_utf8_off($content); open FH,"

学习HTML::TokeParser，此模块比HTML:

arser简单很多。

看代码：

#! /usr/local/bin/perl
use LWP::Simple;
use Data::Dumper;
use HTML::TokeParser;
use Encode;

my $content = get("http://www.sina.com.cn/");
Encode::_utf8_off($content);
open FH,">","1.html";
print FH $content;
system("dos2unix ./1.html 2> /dev/null");

my $p = HTML::TokeParser->new('1.html',
);

while( my $token = $p->get_tag("tr")){ ??????? my $text = $p->get_trimmed_text("tr","/tr"); ??????? print $text."n"; }

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!