perl XML::Parser使用object方法处理XML

参考资料：http://search.cpan.org/~msergeant/XML-Parser-2.36/Parser.pm中的Object解说。

操作文件：

[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>
[root@dou xml]#
?

脚本：

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

my $file = "sample1";
my $p = XML::Parser->new(Style =>'Objects');
my $doc = $p->parsefile($file);

process_node($doc->[0]);
sub process_node {
??????? my($node) = @_;
??????? my $type = ref $node;
??????? $type =~ s/^.*:://;
??????? if ($type eq 'OUTLOOK') {
??????????????? my $attr = {%$node};
??????????????? my $outlook = $attr->{Kids}->[0];
??????????????? my $outlookcont = $outlook->{Text};
??????????????? exchange($outlookcont);
??????? }elsif ($type eq 'TEMPERATURE') {
??????????????? my $attr = {%$node};
??????????????? my $temperature = $attr->{Kids}->[0];
??????????????? my $tempnum = $temperature->{Text};
??????????????? print "$attr->{TYPE}:",$tempnum," $attr->{DEGREES}","n";
??????? }
??????? else {
??????????????? foreach my $node (@{$node->{Kids}}) {
??????????????????????? process_node($node);
??????????????? }
??????? }
}
sub exchange {
??????? my $value = shift;
??????? $value =~ s/n/ /g;
??????? $value =~ s/^s+//;
??????? $value =~ s/s+$//;
??????? print "OUTLOOK: $valuen";
}
[root@dou xml]#
?

执行结果：

[root@dou xml]# perl sample3.pl
OUTLOOK: Partly Cloudy
MAX:12 C
MIN:6 C
[root@dou xml]#
?

脚本解说：

想要明白Object怎么操纵XML的，需要理解经过Object之后的XML生成的数据结构是怎么样的，比如：使用Data::Dumper来分析下生成的数据结构，然后去操作该数据结构即可。