1 2 3 4 567 8 / 8 页下一页

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

rexuekonglong

丰衣足食

论坛徽章:: 0

51楼 [报告]

发表于 2014-02-26 14:27 |只看该作者

回复 50# pitonas
试过了，在上午修改的基础上的代码也试过了，如果都把确切搜索内容替换写入$search_word

my $xml =`/var/www/supose/supose-0.6.2/bin/supose se -I /var/www/supose/repositroy -Q ‘$search_word -x’`;

复制代码

然后手动执行perl test.pl 或者 perl login.cgi(需要去掉脚本第一行的-T)，显示结果都是正确的：

but！用页面调就╮(╯▽╰)╭

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

pitonas

家境小康

论坛徽章:: 5

52楼 [报告]

发表于 2014-02-26 14:34 |只看该作者

what's the result?

#!/usr/bin/perl -wT
use strict;
# Include cgi
use CGI qw/:standard :html3/;
use CGI::Carp 'fatalsToBrowser';
use CGI::Session;
use XML::Simple;
#----------------
#use Encode;
#my $BASEDIR = "/var/www/tangbuild";
my $cgi = new CGI;
my %first;
my $y = new XML::Simple;
my $search_word = $cgi->param('search_word');
# check $search_word ----------------
print "|$search_word|"; # what's the result?
# -----------------------------------
my $xml =
`/var/www/supose/supose-0.6.2/bin/supose se -I /var/www/supose/repositroy -Q $search_word -x`;
print "XML\n$xml\n\n";
my $data = $y->XMLin($xml);
my @print = qw/author path filename message contents/;
my @data =
grep { !$first{ $_->{path} . $_->{filename} }++ } @{ $data->{entry} };
for my $h (@data) {
print "<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< \n";
printf "%-20s%s\n", $_, $h->{$_} for @print;
print "<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< \n";
print "\n\n";
}
1;

复制代码

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

rexuekonglong

丰衣足食

论坛徽章:: 0

53楼 [报告]

发表于 2014-02-26 14:38 |只看该作者

回复 52# pitonas

和我搜索框里的内容： log4cplus.rootlogger 一致。

"|$search_word|"; 显示 |log4cplus.rootlogger|

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

pitonas

家境小康

论坛徽章:: 5

54楼 [报告]

发表于 2014-02-26 14:56 |只看该作者

{:2_176:} 很遗憾
CGI的一部分，我什么都不知道。问问 py 版主看看

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

nathanielwen

稍有积蓄

论坛徽章:: 1

55楼 [报告]

发表于 2014-02-27 00:17 |只看该作者

如果只是去重复节点的话，这种有固定格式的多行文本，如果file和path是固定的位置，比如都是在entry的下数第N行，用awk做可能更适合。回复 37# rexuekonglong

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

rexuekonglong

丰衣足食

论坛徽章:: 0

56楼 [报告]

发表于 2014-02-27 08:43 |只看该作者

回复 55# nathanielwen
xml 优化确实有很多方法，最终结果都是要那么有标志意义的几个元素内容。

目前主要问题集中在程序最终的显示中中文？？？？？的问题。

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

rexuekonglong

丰衣足食

论坛徽章:: 0

57楼 [报告]

发表于 2014-02-27 09:14 |只看该作者

根据python版朋友提示
代码中index.html （在/var/www/ 下）中增加了utf-8 标识，login.html.tmpl 也有utf-8标识，
显示结果中文依旧存在问题
index.html原内容：

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="REFRESH" CONTENT="0; URL=/tangbuild/cgi-bin/index.cgi">
</HEAD>
</HTML>

复制代码

修改后内容：

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=UTF-8; URL=/tangbuild/cgi-bin/index.cgi">
</HEAD>
</HTML>

复制代码

是按照template/login.html.tmpl 对应格式修改的。
#############################
|--/var/www/index.html
|          |--  tangbuild/facvicon.ico
|                         |-- readme
|                         |-- cgi-bin/index.cgi
|                                     |-- login.cgi
|                            |-- template/login.heml.tmpl
以上是我的代码文件树，
1、/var/www/index.html 指定跳转至cgi-bin/index.cgi ;
2、index.cgi定义显示页面为 template/login.html.tmpl;
3、index.cgi中定义执行搜索功能页面为 cgi-bin/login.cgi；
4、login.cgi 执行相应的搜索命令并处理结果、最终显示；