已经解决。

kernel.org

。。

[ 本帖最后由 kernel.org 于 2007-3-19 10:58 编辑 ]

ulmer

Hi,

using CPAN module XML::Simple.
i.e. code:

use strict;
use XML::Simple;

my $xs = new XML::Simple( forcecontent=>1 );
my $xmlfile = './weathercity.xml';
my $xml = $xs->XMLin($xmlfile);
my @names =('CityId', 'CityName', 'AdPic', 'Enabled');

foreach my $href (@{$xml->{'row'}}) {
    foreach my $name (@names) {
        # option: forcecontent=>1 used
        print $name. '="'. $href->{$name}->{'content'}. '"  ';
    }
    print "\n";
}

--ulmer

kernel.org

谢谢。
怎么也能把 'CityId', 'CityName', 'AdPic', 'Enabled' 这些也解析出来呢？想写成一个通用的。

因为我还有些文件是这样的表述

<row num="3">
<FlowId>3</FlowId>
<AccessTime>2006-12-13 15:55:23</AccessTime>
<UserId>0</UserId>
<Info>用户登录失败</Info>
</row >
<row num="4">
<FlowId>4</FlowId>
<AccessTime>2006-12-13 15:59:02</AccessTime>
<UserId>0</UserId>
<Info>用户 1 登录失败</Info>
</row >

alexru

perldoc XML::Simple

kernel.org

原帖由 alexru 于 2007-3-19 09:32 发表
perldoc XML::Simple

看不懂。

kernel.org

1. 
   
2. use strict;
   
3. use XML::Simple;
   
4. 
   
5. my $xs = new XML::Simple( forcecontent=>1 );
   
6. my $xmlfile = '1.xml';
   
7. my $xml = $xs->XMLin($xmlfile);
   
8. #print Dumper ($xml);
   
9. 
   
10. 
    
11. #my @names =('CityId', 'CityName', 'AdPic', 'Enabled');
    
12. 
    
13. my @names ;
    
14. my $n = 0;
    
15. foreach my $chunk (keys(%{ $xml->{'row'} })) {
    
16.         $names[$n] = $chunk;
    
17.         $n++;
    
18. }
    
19. print @names;
    
20. 
    
21. 
    
22. foreach my $href (@{$xml->{'row'}}) {
    
23. foreach my $name (@names) {
    
24.         print $name. '="'. $href->{$name}->{'content'}. '"  ';
    
25. }
    
26. print "\n";
    
27. }

复制代码

修改了一下。 可以得到names数组了，可是又有一个错误了，怎么回事？

kernel.org

D:\code>10.pl
CityName
CityId
num
Enabled
AdPic

D:\code>

而且运行结果多一个空行，怎么回事？

kernel.org

use strict;
use XML::Simple;

my $xs = new XML::Simple( forcecontent=>1 );
my $xmlfile = '1.xml';
my $xml = $xs->XMLin($xmlfile);
#print Dumper ($xml);


#my @names =('CityId', 'CityName', 'AdPic', 'Enabled');

my @names ;

foreach my $chunk (keys(%{ $xml->{'row'} })) {
         push @names, $chunk;
}

foreach  (@names) {
        print $_."\n";
}


foreach my $href (@{$xml->{'row'}}) {
foreach my $name (@names) {
        print $name. '="'. $href->{$name}->{'content'}. '"  ';
}
print "\n";
}

kernel.org

D:\code>10.pl
CityName
CityId
num
Enabled

D:\code>10.pl
CityId
CityName
AdPic
Enabled


num 是 row的属性啊。怎么会 出现在 ◎names里呢？

kernel.org

解决了。