2
Native Perl Tree Parsers
6
my $ob = new XML::Bare( file => $file );
11
my $ob = new XML::Bare( file => $file );
12
my $root = $ob->simple();
16
my $tpp = XML::TreePP->new();
17
my $tree = $tpp->parsefile( $file );
19
#- XML::Parser::EasyTree
21
require XML::Parser::EasyTree;
22
my $p1 = new XML::Parser(Style=>'EasyTree');
23
$root = $p1->parsefile($file);
26
require XML::Handler::Trees;
27
require XML::Parser::PerlSAX;
28
my $p=XML::Parser::PerlSAX->new();
29
my $h=XML::Handler::EasyTree->new();
30
$root=$p->parse(Handler=>$h,Source=>{SystemId=>$file});
34
my $xml = XML::Trivial::parseFile($file);
38
my $XML = XML::Smart->new($file);
40
#- XML::Simple (XML::Parser)
42
$XML::Simple::PREFERRED_PARSER = 'XML::Parser';
43
my $ref = XML::Simple::XMLin($file);
45
#- XML::Simple (PurePerl)
47
$XML::Simple::PREFERRED_PARSER = 'XML::SAX::PurePerl';
48
my $ref = XML::Simple::XMLin($file);
50
#- XML::Simple (LibXML)
52
$XML::Simple::PREFERRED_PARSER = 'XML::LibXML::SAX::Parser';
53
my $ref = XML::Simple::XMLin($file);
55
#- XML::Simple (XML Bare)
57
$XML::Simple::PREFERRED_PARSER = 'XML::Bare::SAX::Parser';
58
my $ref = XML::Simple::XMLin($file);
61
require XML::Bare::Simple;
62
my $ref = XML::Bare::Simple::XMLin($file);
65
require XML::SAX::Simple;
66
my $ref = XML::SAX::Simple::XMLin($file);
70
my $t = XML::Twig->new->parsefile( $file );
71
$root = $t->root->simplify;
74
require XML::Grove::Builder;
75
require XML::Parser::PerlSAX;
76
my $grove_builder = XML::Grove::Builder->new;
77
my $parser = XML::Parser::PerlSAX->new ( Handler => $grove_builder );
78
my $document = $parser->parse ( Source => { SystemId => $file } );
80
#- XML::XPath::XMLParser
81
require XML::XPath::XMLParser;
82
my $parser = XML::XPath::XMLParser->new;
83
my $tree = $parser->parsefile( $file );
86
require XML::DOM::Lite;
87
my $doc = XML::DOM::Lite::Parser->parseFile( $file );
92
open( $xmlfile, $file );
93
my $doc = XML::Tiny::parsefile( $xmlfile );
97
my $ob = XML::MyXML::xml_to_object( $file, { file => 1 } );
100
require XML::TinyXML;
101
my $ob = XML::TinyXML->new();
102
$ob->loadFile( $file );