Mercurial > pub > Impl
view _test/temp.pl @ 224:e6c050db7d98
resources schema update
author | sergey |
---|---|
date | Wed, 29 Aug 2012 17:28:13 +0400 |
parents | edf011437be8 |
children | 8d36073411b1 |
line wrap: on
line source
#!/usr/bin/perl use strict; use XML::Compile::Schema; use XML::Compile::Util qw(pack_type pack_id); use Data::Dumper; use Time::HiRes qw(gettimeofday tv_interval); my $schema = XML::Compile::Schema->new('Resources/resources.xsd'); $schema->printIndex(); my $type = pack_type 'http://implab.org/schemas/resources', 'resources'; my $reader = $schema->compile( READER => $type, xsi_type => { pack_type('http://implab.org/schemas/resources','AbstractResult') => 'AUTO' } ); my $t = [gettimeofday]; my $obj = $reader->('Resources/sample.xml'); print "Parsing small Xml file: ",tv_interval($t,[gettimeofday]),"\n"; print Dumper( $obj );