求助:perl 处理xml内容 [复制链接]

论坛徽章:: 5

62楼 [报告]

发表于 2014-03-03 11:51 |只看该作者

学习了！
{:2_172:} 赞一个！

回复 61# rexuekonglong

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

论坛徽章:: 0

63楼 [报告]

发表于 2014-03-04 11:50 |只看该作者

回复 62# pitonas

细化任务又下达了。。。。

1、如果没有 <entry> 这个元素节点，返回输出“检索失败”（这个好像因为软件原因，有些内容搜索不出来产生的xml只有第一行 <list>）
2、显示搜索结果总数，分页显示前100条

第一个我好像搞出来了

my $data = $y->XMLin($xml);
if ($data){
my @data =
grep { !$first{ $_->{path} . $_->{filename} }++ } @{ $data->{entry} };
if(!@data){
print "检索失败"
}
else{
my @print = qw/author path filename message contents/;
#---------------统计数量没有成功----------------------------------
$my count = ($data=~s/entry/#/g) ;
print "总共$count 条结果，每页显示10条"
#---------------------------------------------------------------
for my $h (@data) {
print "<<<<<<<<<<< \n";
printf "%-20s%s\n", $_, $h->{$_} for @print;
print "<<<<<< \n";
print "\n\n";
}
}
}

复制代码

这个统计结果怎么搞？每10个结果翻一页，这个又怎么做呢？

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

论坛徽章:: 0

64楼 [报告]

发表于 2014-03-04 16:37 |只看该作者

rexuekonglong 发表于 2014-03-04 11:50
回复 62# pitonas

细化任务又下达了。。。。

my $count = 0;
my $data = $y->XMLin($xml);
if ($data){
my @data =
grep { !$first{ $_->{path} . $_->{filename} }++ } @{ $data->{entry} };
if(!@data){
print "检索失败"
}
else{
my @print = qw/author path filename message contents/;
#---------------统计结果貌似成功---------
foreach (@data){
$count ++;
}
print "总共$count 条结果，每页显示10条"
#---剩下任务=>实现结果数量超过10个，页面翻页--
for my $h (@data) {
print "<<<<<<<<<<< \n";
printf "%-20s%s\n", $_, $h->{$_} for @print;
print "<<<<<< \n";
print "\n\n";
}
}
}

复制代码

下一个优化任务=>实现结果数量超过10个，页面翻页。

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

论坛徽章:: 5

65楼 [报告]

发表于 2014-03-04 19:02 |只看该作者

how about this ?
生成 html
try:
perl script.pl > this.html
firefox this.html

#!/usr/bin/perl
#my @data = (); # test for empty @data;
my @data = 'A' .. 'Z';
my $count = @data;
my @pages = map { join "\n<br>\n", @$_ }
map { [ splice @data, 0, 10 ] } 0 .. $count / 10;
my ( %html, $key );
while (<DATA>) {
if (/^#\s(\w+)/) {
$key = $1;
}
else { $html{$key} .= $_ }
}
if ( !$count ) {
print @html{qw/head_begin head_end body_begin/};
print "<br><br>检索失败<br><br>";
print $html{html_end};
exit;
}
print $html{head_begin}, "\n";
print $html{script}, "\n";
print $html{head_end}, "\n";
print $html{body_begin}, "\n";
print "<br>总共 $count 条结果，每页显示10条<br><br>\n";
print $html{page_1}, "\n";
for my $e ( 1 .. $#pages ) {
my $d = $e + 1;
my $H =
"<td class=\"inactive\" id=\"cell$d\" onclick=\"showLayer(this,\'d$d\',$e);\">页$d</td>";
print $H, "\n";
}
print $html{page_2}, "\n";
print
"<div id=\"d1\" class=\"layer\" style=\"display:block;background-color:#FFFFFF;\">\n$pages[0]</div>\n";
for my $e ( 1 .. $#pages ) {
my $d = $e + 1;
my $H =
"<div id=\"d$d\" class=\"layer\" style=\"display:none;\">\n$pages[$e]</div>\n";
print $H, "\n";
}
print $html{html_end};
# html from
# http://karen.cngogo.org/read.php?fid=5&tid=46&fpage
__DATA__
# head_begin
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<meta http-equiv="content-type" content="text/html;charset=utf-8" />
<title> 检索结果 </title>
# script
<style>
.active {
border: 1px solid #7D7D7D;
border-bottom: none;
width:70;
cursor:pointer;
}
.inactive {
border: none;
border-bottom: 1px solid #7D7D7D;
width:70;
cursor:pointer;
}
.layer {
border: 1px solid #7D7D7D;
border-top: none;
width:800;
height:200;
}
</style>
<script type="text/javascript">
var currentLayer = "cell1";
var currentDiv = "d1";
var defaultColor = "#FFFFFF";
function showLayer(obj, div){
if(currentLayer!=obj.id) {
showIt(currentLayer,currentDiv,false);
currentLayer = obj.id;
currentDiv = div;
showIt(currentLayer,currentDiv,true);
}
}
function showIt(o, d, mode){
var obj = document.getElementById(o);
var div = document.getElementById(d);
obj.className = mode ? "active" : "inactive";
div.style.display = mode ? "block" : "none";
}
</script>
# head_end
</head>
# body_begin
<body>
# page_1
<table border="0" cellspacing="0" cellpadding="5">
<tr align="center">
<td class="active" id="cell1" onclick="showLayer(this,'d1');">页1</td>
# page_2
<td style="border-bottom:1px solid #7D7D7D;"> </td>
</tr>
</table>
# html_end
</body>
</html>

复制代码

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

论坛徽章:: 5

66楼 [报告]

发表于 2014-03-04 19:04 |只看该作者

html from :
http://karen.cngogo.org/read.php?fid=5&tid=46&fpage

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

论坛徽章:: 0

67楼 [报告]

发表于 2014-03-10 17:01 |只看该作者

回复 66# pitonas
其实，我在思考，我这个程序起始页是index.cgi，运行页是login.cgi，而真正显示页是template/login.html.tmpl，如果想要实现翻页，
是不是直接修改login.html.tmpl 我去试试把后缀改了，试试。

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

论坛徽章:: 0

68楼 [报告]

发表于 2014-03-10 17:30 |只看该作者

回复 65# pitonas

你这个是根据页面长度超过规定翻页？还是根据显示数目来翻页？

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

论坛徽章:: 5

69楼 [报告]

发表于 2014-03-10 18:33 |只看该作者

本帖最后由 pitonas 于 2014-03-10 11:40 编辑

{:2_172:} 每10个结果翻一页
example: A ~ Z 26个结果 == 3页(10, 10, 6 )
回复 68# rexuekonglong

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？