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

fish3129

　　参考资料：http://search.cpan.org/~msergeant/XML-Parser-2.36/Parser.pm中的Object解说。
　　操作文件：
　　[root@dou xml]# cat sample1
　　
　　
　　Partly Cloudy
　　
　　12
　　6
　　
　　[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: $value\n";
　　}
　　[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来分析下生成的数据结构，然后去操作该数据结构即可。