- 论坛徽章:
- 0
|
你要的是这种结果吗？
脚本:
[root@supersun web]# cat dump.pl
#!/usr/bin/perl -w
use strict;
use HTML::TreeBuilder;
use HTML::Entities;
my $file=shift;
my $tree=HTML::TreeBuilder->new_from_file($file);
#my $util=$tree->address("0.1.2.0");
print $tree->dump,"\n";
$tree->delete();
|
运行：
[root@supersun web]# perl dump.pl index.html
<html> @0
<head> @0.0
<title> @0.0.0
"网文共赏 Www.21GbooK.Com"
<meta c http-equiv="Content-Type" /> @0.0.1
<meta c http-equiv="Refresh" /> @0.0.2
<style> @0.0.3
"body{font-size:9pt}\x0atd{font-size:9pt}"
<base target="_blank" /> @0.0.4
<body topmargin="15"> @0.1
<center> @0.1.0
<table bgcolor="#302818" border="2" bordercolor="#666666" cellpadding="0" cellspacing="0"> @0.1.0.0
<tr> @0.1.0.0.0
<td> @0.1.0.0.0.0
<a href="book.htm" target="_top"> @0.1.0.0.0.0.0
<img border="0" height="326" src="http://toppic.blogchina.com/inc/22.jpg" width="162" /> @0.1.0.0.0.0.0.0
<img border="0" height="326" src="http://toppic.blogchina.com/inc/11.jpg" width="329" /> @0.1.0.0.0.0.0.1
<tr> @0.1.0.0.1
<td height="26"> @0.1.0.0.1.0
" "
<a href="book.htm" style="color:#FFFFFF" target="_top"> @0.1.0.0.1.0.1
"■ 进入网络文学基地"
<p> @0.1.0.1
"粤ICP备05003585号"
<p> @0.1.0.2
<iframe border="0" frameborder="0" framespacing="0" height="40" hspace="0" id="baiduframe" marginheight="0" marginwidth="0" scrolling="no" src="http://unstat.baidu.com/bdun.bsc?tn=21gbook&csid=107&rkcs=4&bgcr=FFFFFF&ftcr=000000&rk=1&bd=1&bdas=0" vspace="0" width="468"> @0.1.0.2.0
<iframe bordercolor="#000000" frameborder="0" height="75" marginheight="0" marginwidth="0" scrolling="no" src="http://adsence.sogou.com/index.html?pid=fscmx&ww=120&dc=2&dir=0&num=6&color=3" width="735"> @0.1.0.2.1
<p> @0.1.0.3
<script language="javascript" src="21ns.js"> @0.1.0.3.0
<script src="http://y.cnxad.com/adcode.aspx?codecrt=pop_sp2&webuserid=1014&encode=YTflCMDHSUQaeDEitXcavOEO1k9uYSBY9Rx67mQxTuU%3d&et=1"> @0.1.0.3.1
<br /> @0.1.0.3.2
<script language="javascript" src="http://js.users.51.la/94125.js" type="text/javascript"> @0.1.0.3.3
<script id="y_js" src="http://stat.aliunion.cn.yahoo.com/stat.js?wid=21197"> @0.1.0.3.4 |
|
免费注册
发表于 2007-08-22 13:05
