求助:perl 处理xml内容

rexuekonglong

rexuekonglong 发表于 2014-02-25 16:21
根据上述猜想，所以我把放入了一个shell脚本中，
search.sh  脚本内容：在原login.cgi中，将perl捕获的搜索 ...

shit！
当把获取输入搜索内容语句修改为:

1. my $z = `echo $search_word > '/var/www/tangbuild/cgi-bin/s.txt'`;

复制代码

就成功把被搜索内容输入到了 s.txt文件中，然后shell 搜索脚本，也成功被调用执行。
不过结果嘛：
s.txt：
1.xml内容：
搜索页面结果：

为啥。。。。就是和人工手动执行shell脚本不一样！！

rexuekonglong

彻底把所有perl脚本，倒腾到windows下，换了一次utf-8的编码，再倒腾回linux下，搜索结果还没变。。。。

pitonas

{:2_172:}小伙伴们, 这

1. my $xml  = `supose se -I repository -Q $search_word -x`;
   
2. my $y    = new XML::Simple;
   
3. my $data = $y->XMLin($xml);

复制代码

rexuekonglong

回复 43# pitonas
结果一样，中文字符还是“？？？”


   

rexuekonglong

回复 43# pitonas

如果加上这个 utf-8 flag on 函数，要怎么搞？

参考： http://biancheng.dnbcw.info/java/181764.html

   

pitonas

试试这个?

1. use Encode;
   
2. 
   
3. my $xml      = `supose se -I repository -Q $search_word -x`;
   
4. my $xml_utf8 = encode_utf8( decode( 'gbk', $xml ) );  # gbk
   
5. my $y        = new XML::Simple;
   
6. my $data     = $y->XMLin($xml_utf8);

复制代码

rexuekonglong

回复 46# pitonas
结果依旧。

   

pitonas

如果你贴上你所有的脚本, 图片看不清楚

rexuekonglong

回复 48# pitonas


    tangbuild.7z (2.09 KB, 下载次数: 2)

2014-02-26 12:59 上传

点击文件名下载附件

  这是所有的程序，是早上修改过脚本存储编码格式的

pitonas

test 看看
perl test.pl
test.pl:

1. #!/usr/bin/perl -w
   
2. # FOR TEST
   
3. use strict;
   
4. use XML::Simple;
   
5. 
   
6. my %first;
   
7. my $XML         = new XML::Simple;
   
8. my $search_word = 'xyz';    # change xyz to yor search_word
   
9. 
   
10. my $xml =
    
11. `/var/www/supose/supose-0.6.2/bin/supose se -I /var/www/supose/repositroy  -Q $search_word -x`;
    
12. 
    
13. my $data  = $XML->XMLin($xml);
    
14. my @print = qw/author path filename message contents/; # edit this line
    
15. my @data =
    
16.   grep { !$first{ $_->{path} . $_->{filename} }++ } @{ $data->{entry} };
    
17. 
    
18. for my $h (@data) {
    
19.     print "<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< \n";
    
20.     printf "%-20s%s\n", $_, $h->{$_} for @print;
    
21.     print "<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< \n";
    
22.     print "\n\n";
    
23. }
    

复制代码