perl 解析XML问题求助

zhoujianxin

我是用PERL的新手，以前是搞VC的，呵呵，所以问题多，请大家帮忙先谢了
    我用PERL 解析XML文件，
    use strict;
    use XML::Simple;
    $data = XMLin(./xxx.xml);
    for (my $i =$rowcount[$currentfile]; defined(my $d = $data->;{datalogelement}->;[$i]); $i++) {
                                my @tmp = split(/\|/,$d);
                print "@tmp\n";
        }
  在由于这个XML文件是自动增长的，当datalogelement有超过一条的时候，上面的语句工作得很好，但每次刚生成新的XML文件datalogelement只有0行或者1行的时候，整个进程都会退出请问如何判断datalogelement有超过两行，
当只有一行的时要用
my $d = $data->;{datalogelement}就是没有那个$i,


错误为：
Can't use string ("1058187780|1.05996|1|Default sta" as an ARRAY ref while "str
ict refs" in use at ./xml.pl line 189.

apile

use strict;
use XML::Simple;

if(`cat ./xxx.xml|wc -l` >; 2){
$data = XMLin(./xxx.xml);
for (my $i =$rowcount[$currentfile]; defined(my $d = $data->;{datalogelement}->;[$i]); $i++) {
my @tmp = split(/\|/,$d);
print "@tmp\n";
}
}

lgjut

$data = XMLin('./xxx.xml',forcearray =>; 1);

不知道当初为什么forcearray =>; 1 没有成为缺省值。

zhoujianxin

你的意思是不是设置了这个forcearray =>; 1可以不判断了？？？？？？
楼上那个先谢谢了，，，但是我是要判断是否有两个以上的datalogelement，整个文件是肯定超过2行的。。。。。。。。所以用cat是没有办法判断的还是感谢，，，

zhoujianxin

forcearray =>;1这个参数指定有什么好处咯

apile

強迫每個element都用array...去接收....

voi-jia

1. ########################################################################
   
2. #
   
3. #   Function :simple_TransformHash
   
4. #  
   
5. #   Input:  $ddd_ref:ref to hash_struct
   
6. #           $key: the key when transforming
   
7. #   Return: ref to hash_struct which is transformed  
   
8. #
   
9. #######################################################################
   
10. 
    
11. sub simple_TransformHash{
    
12.     my ($ddd_ref,$key)=@_;         
    
13.     foreach $hash_key(keys %$ddd_ref){
    
14.          if (exists($ddd_ref->;{$hash_key}->;{$key})){
    
15.          my $tmp_hash=$ddd_ref->;{$hash_key};
    
16.          my $tmp_id=$ddd_ref->;{$hash_key}->;{$key};
    
17.          delete $$tmp_hash{$key};
    
18.          my %add_hash=($tmp_id=>;$tmp_hash);
    
19.          $ddd_ref->;{$hash_key}=\%add_hash;
    
20.                   
    
21.          }     
    
22.      }
    
23.         
    
24.     foreach $hash_value(values %$ddd_ref){
    
25.          &simple_TransformHash($hash_value,$key);         
    
26.     }
    
27.     #print"ending dumper\n";          
    
28.     return $ddd_ref;
    
29. }

复制代码

voi-jia

1. #######################################################################
   
2. #
   
3. # Function: prepare
   
4. # Input:null
   
5. # Output: 1. singal
   
6. #         2. message
   
7. #
   
8. #
   
9. #
   
10. #
    
11. #######################################################################
    
12.   
    
13. sub prepare{
    
14.     #&validate();
    
15.     if ($err_msg){
    
16.           return (-1,$err_msg);
    
17.     }
    
18.     my $config_file="config.xml";               
    
19.     $config_ref=eval{XMLin($config_file)};
    
20.     if ($@){
    
21.         print "$@\n";
    
22.        return (-4,"Read file $xml_file failed.\n");
    
23.     }  
    
24.     $config_ref=&simple_TransformHash($config_ref,'id');
    
25.     #print Dumper($config_ref);
    
26.     return (1,"success");   
    
27. }

复制代码

应该是你要的东西吧，使用这两个函数就行了。