Skip to content

Instantly share code, notes, and snippets.

@robinsmidsrod
Created June 17, 2009 16:00
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save robinsmidsrod/131317 to your computer and use it in GitHub Desktop.
Save robinsmidsrod/131317 to your computer and use it in GitHub Desktop.
robin@server:~/ims$ cat all_in_one.pl
#!/usr/bin/perl
use strict;
use warnings;
use XML::Toolkit::Builder;
use XML::Toolkit::Loader;
use Data::Dumper qw(Dumper);
my $filename = shift;
die("Please specify an XML file.\n") unless -r $filename;
my $namespace_map = {
'http://www.imsglobal.org/xsd/imsmd_v1p2' => 'IMS::LOM',
'http://www.imsglobal.org/xsd/imscp_v1p1' => 'IMS::CP',
};
my $builder = XML::Toolkit::Builder->new(namespace_map => $namespace_map);
$builder->parse_uri($filename);
my $code = $builder->render();
eval $code;
my $loader = XML::Toolkit::Loader->new(namespace_map => $namespace_map);
$loader->parse_uri( $filename );
print Dumper($loader->render());
robin@server:~/ims$ ./all_in_one.pl ../scenetreff/Introduksjon/imsmanifest.xml
$VAR1 = [
'<?xml version=\'1.0\' encoding=\'UTF-8\'?>'
];
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment