如何将XML:：Parser与Style=>'；对象'；

XML:：Parser:：Style:：Objects

的手册页面非常糟糕。一个简单的hello world风格的程序会非常有用

我真的很想做这样的事情：（当然不是真正的代码）

---

当我需要做类似的事情时，通常我会使用它，因为它有更好的文档，而且使用起来更简单

---

我强烈推荐它。

在所有情况下，这里都是实际运行的代码。。。这并不意味着什么，但产生的产出，希望能让你开始

use XML::Parser;

package MyNode::inner;
    sub doSomething {
      my $self = shift;
      print "This is an inner node containing : ";
      print $self->{Kids}->[0]->{Text};
      print "\n";
    }
package MyNode::Characters;
    sub doSomething {}
package MyNode::foo;
    sub doSomething {
      my $self = shift;
      print "This is an external node\n";
      for $kid (@ { $self->{Kids} }) {
        $kid->doSomething();
      }
    }

package main;

my $p = XML::Parser->new(Style => 'Objects', Pkg => 'MyNode');
my $tree = $p->parsefile('foo.xml');
for (@$tree) {
    $_->doSomething();
}

使用foo.xml

 <foo> <inner>some text</inner> <inner>something else</inner></foo>

希望有帮助

 <foo> <inner>some text</inner> <inner>something else</inner></foo>

>perl -w "tree.pl"     
This is an external node
This is an inner node containing : some text
This is an inner node containing : something else