perl XML::Parser

使用Tree Style来解析xml文件

操作文件：

[root@dou xml]# cat sample1
<FORECAST>
? <OUTLOOK>
??? Partly Cloudy
? </OUTLOOK>
? <TEMPERATURE TYPE="MAX" DEGREES="C">12</TEMPERATURE>
? <TEMPERATURE TYPE="MIN" DEGREES="C">6</TEMPERATURE>
</FORECAST>
?

XML::Parser中的Tree Style将xml文件内容转化为perl的数据结构如下：

[root@dou xml]# cat ch.pl
#!/usr/bin/perl -w
use strict;
use XML::Parser;
use Data::Dumper;

my $file = "sample1";
my $p = XML::Parser->new(Style => 'Tree');
my $doc = $p->parsefile($file);
print Dumper($doc);
[root@dou xml]# perl ch.pl
$VAR1 = [
????????? 'FORECAST',
????????? [
??????????? {},
??????????? 0,
??????????? '
? ',
??????????? 'OUTLOOK',
??????????? [
????????????? {},
????????????? 0,
????????????? '
??? Partly Cloudy
? '
??????????? ],
??????????? 'TEMPERATURE',
??????????? [
????????????? {
??????????????? 'TYPE' => 'MAX',
??????????????? 'DEGREES' => 'C'
????????????? },
????????????? '12'
??????????? ],
??????????? [
????????????? {
??????????????? 'TYPE' => 'MIN',
????????????? '6'
??????????? ],
??????????? '
'
????????? ]
??????? ];
[root@dou xml]#
?

转换原理参照：http://search.cpan.org/~msergeant/XML-Parser-2.36/Parser.pm中的Style的Tree。

Tree

Parse will return a parse tree for the document. Each node in the tree takes the form of a tag,content pair. Text nodes are represented with a pseudo-tag of "0" and the string that is their content. For elements,the content is an array reference. The first item in the array is a (possibly empty) hash reference containing attributes. The remainder of the array is a sequence of tag-content pairs representing the content of the element.

基本上就是 element [匿名数组]一次类推下去，涉及到嵌套。

脚本运行结果如下：

[root@dou xml]# perl sample2.pl sample1 Outlook: Partly Cloudy MAX:12 C MIN:6 C ?