使用XML::Simple读取XML文件问题

coolend

有这样一个XML文件(book.xml)：

<?xml version="1.0" encoding="utf-8"?>
<books>

  <book>
    <name>perl</name>
    <cn>Learning Perl </cn>
    <date>2006-01</date>
  </book>

  <book>
    <name>shell</name>
    <cn>Bash Shell </cn>
    <date>2006-02</date>
  </book>

</books>

代码：

1. 
   
2. #!/usr/bin/perl -w
   
3. 
   
4. use strict;
   
5. use XML::Simple;
   
6. 
   
7. my $xmlfile    = "book.xml";
   
8. my $config = eval { XMLin($xmlfile) };
   
9. 
   
10. ## 这个 XML 文件中不止一条记录，所以可以使用
    
11. ## $config->{"book"}->{<keyattr>}来访问对应记录的数据，比如
    
12. 
    
13. ## 要获取书籍 perl 相关信息，可以使用
    
14. print $config->{"book"}->{"perl"}{"cn"} . "\n";  
    
15. print $config->{"book"}->{"perl"}{"date"} . "\n";
    
16. 
    
17. ### 这里的 keyattr 就是 name 属性
    
18. ### 上面语句将打印 Learning Perl 和 2006-01
    
19. 
    
20. ## 但是，如果只有一条记录，也就是说将上面文件中
    
21. #  <book>
    
22. #   <name>shell</name>
    
23. #   <cn>Bash Shell </cn>
    
24. #   <date>2006-02</date>
    
25. #  </book>
    
26. ## 删除，那么要获取里面的数据，则无需指定 keyattr，即通过
    
27. ## $config->{"book"}{<attr>}来访问对应记录的数据，比如
    
28. 
    
29. print $config->{"book"}{"cn"};
    
30. print $config->{"book"}{"date"};
    
31. 
    
32. ## 不知道有没有办法强制即使只有一条记录时，也通过到 keyattr 的引用来访问数据，即
    
33. ## print $config->{"book"}->{"perl"}{"cn"} 和
    
34. ## print $config->{"book"}{"cn"} 输出一样的结果
    

复制代码

因为一条记录和多条记录的数据处理方式不同，不论在获取记录信息还是添加，删除新记录，
每次遇到这种情况都需要分开处理，非常的不方便。

不知道各位有何妙策？请多多指教，感激不尽！

aaronvox

那就始终按照多条记录处理贝

coolend

谢谢回复！

我也想到了这点，但是总有那么一种感觉：似乎有更好的办法来解决这个问题。

ulmer

Hi,

using Data::Dumper to study (or research :-)) the data structure.
read more about => perldoc perllol, perldoc perldsc

For example to manuplate the complex data structure:

1. 
   
2. use strict;
   
3. use XML::Simple;
   
4. use Data::Dumper;
   
5. 
   
6. my $config = eval { XMLin('book.xml') };
   
7. print Dumper($config), "\n";
   
8. 
   
9. my $bk = $config->{'book'};
   
10. # how many books:
    
11. print "total books: ", scalar keys %$bk, "\n";
    
12. 
    
13. # get book name only;
    
14. print "$_\n" foreach sort keys %$bk;
    
15. 
    
16. # get first book's record only, but the bookname is unknown.
    
17. my $bk_1 = (sort keys %$bk) [0];
    
18. print "book 1: $bk_1\n";
    
19. print "cn   : " . $bk->{$bk_1}->{cn} . "\n";
    
20. print "date : " . $bk->{$bk_1}->{date} . "\n";
    

复制代码

regards, ulmer

coolend

找到一个似乎更好的办法：

将单条记录的访问方式转换成多条记录的访问方式，即：

1. 
   
2. use XML::Simple;
   
3. use Data::Dumper;
   
4. 
   
5. my $config = eval { XMLin("book.xml") };
   
6. die "ERROR: $@" if ($@);
   
7. 
   
8. foreach my $chunk (keys(%{ $config })) {
   
9. 
   
10.     foreach (keys(%{ $config->{ $chunk } })) {
    
11. 
    
12.         ### 如果含有多条记录，即元素是 HASH 引用，不做转换，跳到下一个
    
13.         last if (ref($config->{ $chunk }->{ $_ }) eq "HASH");
    
14. 
    
15.         ### 否则当只有一条记录处理，转换在这里进行
    
16.         my $name = delete ($config->{ $chunk }->{"name"});
    
17.         my $hashref = $config->{ $chunk };
    
18.         $config->{ $chunk } = { $name => $hashref };
    
19.         last;
    
20.     }
    
21. }
    
22. 
    
23. print Dumper ($config);
    

复制代码

未转换前，数据结构为：

1. 
   
2.     {
   
3.         'book' => {
   
4.                     'date' => '2006-01',
   
5.                     'cn' => 'Learning Perl ',
   
6.                     'name' => 'perl'
   
7.                   }
   
8.     };
   

复制代码

转换之后，数据结构为：

1. 
   
2.     {
   
3.           'book' => {
   
4.                     'perl' => {
   
5.                               'date' => '2006-01',
   
6.                               'cn' => 'Learning Perl '
   
7.                             }
   
8.                      }
   
9.     };
   

复制代码

这样，不管是多条记录还是单条记录，都可以通过
$config->{"book"}->{<keyattr>}{<attribute>} 来访问了

比如 print $config->{"book"}->{"perl"}{"cn"} 将输出 Learnning Perl

[ 本帖最后由 coolend 于 2006-9-6 20:14 编辑 ]

ulmer

原帖由 coolend 于 2006-9-6 20:05 发表
找到一个似乎更好的办法：

将单条记录的访问方式转换成多条记录的访问方式，即：

[code]
use XML::Simple;
use Data::Dumper;

my $config = eval { XMLin("book.xml") };
die "ERROR: ...

simplest way:

$bk = $config->{book};
# is one book record?
if (exists $bk->{name}) {
    print 'book: '. $bk->{name}, ', cn: '. $bk->{cn}. ', date; '. $bk->{date}. "\n";
} else {
    # process mutli-records
}

coolend

Thanks, ulmer !

我的意思是想写一个通用的函数，不仅仅是读取数据，还有新增或修改都以统一的方式来进行，而不仅仅是输出。因为添加记录时，当前没有记录，只有一条记录或多条记录的情况都不一样，同样，删除时也不尽相同。

经过这样转换后，不管是读取／添加／新增，处理方式都一样，简化了操作。比如

打印： print $config->{"book"}->{"perl"}{"cn"} ;

增加： $config->{"book"}->{"newbook"}{"cn"} = "This is a New book"
       $config->{"book"}->{"newbook"}{"date"} = "2006-09"

删除： delete($config->{"book"}->{"newbook"});

这样操作完成后，再用 XMLOut 即可保存新的数据，如下：

1. 
   
2. open FILE,">$xmlfile" || die "ERR: Cannot write xml file ! \n";
   
3. print FILE XMLout($config, noattr => 1, rootName => "books",
   
4.                   xmldecl => '<?xml version="1.0" encoding="utf-8"?>');
   
5. close (FILE);
   

复制代码

ulmer

原帖由 coolend 于 2006-9-6 22:54 发表
Thanks, ulmer !

我的意思是想写一个通用的函数，...

Ok!
After reading perldoc XML::Simple, this module provides an option "ForceArray => 1"
in XMLin(XML_FILE, OPTIONS). It will parse same data structure and this method is more safe then above.
Try it:
[qoute]
$config = XMLin('book.xml', ForceArray => 1);
print Dumper $config;
[/quote]  

you will see no matter how many book's records (one or more then one),
the dumped data structure always same.

regards, ulmer

coolend

ForceArray => 1 是强制某个元素的值为数组(即使是单个值)，比如 author 属性有2个值

<author>ulmer</author>
<author>muddyboot</author>

那么 $config->{"book"}{"newbook"}{"author} = [ "ulmer","muddyboot" ];

如果只有一个值，则为：
$config->{"book"}{"newbook"}{"author"} = "ulmer";

但设置ForceArray 后，将变成：
$config->{"book"}{"newbook"}{"author"} = [ "ulmer" ];

ulmer

原帖由 coolend 于 2006-9-7 08:45 发表
ForceArray => 1 是强制某个元素的值为数组(即使是单个值)，比如 author 属性有2个值
...

Yes! this is best way to keep SAME DATA STRUTURE from  a xml file and treat the record(s)
always as multi-list!