XML::Catalog - Resolve public identifiers and remap system identifiers
use XML::Catalog; my $catalog=XML::Catalog->new('/xml/catalog.cat'); $catalog->add('http://www.w3.org/xcatalog/mastercat.xml'); my $sysid=$catalog->resolve_public('-//John Cowan//LOC Diacritics'); my $newsysid=$catalog->remap_system('http://www.w3.org'); $parser->setHandlers(ExternEnt=>$catalog->get_handler($parser));
$ perl -e 'use XML::Catalog; \ $pubid = q|-//OASIS//DTD DocBook XML V4.5//EN|; \ my $catalog=XML::Catalog->new("/etc/xml/catalog"); \ print $catalog->resolve_public($pubid), "\n";' file:///usr/share/sgml/docbook/xml-dtd-4.5-1.0-51.el6/docbookx.dtd
This module implements draft 0.4 of John Cowan's XML Catalog (formerly known as XCatalog) proposal (<http://www.ccil.org/~cowan/XML/XCatalog.html>). Catalogs may be written in either SOCAT or XML syntax (see the proposal for syntax details); XML::Catalog will assume SOCAT syntax if the catalog is not in well-formed XML syntax.
This module, as of 1.0.0, also supports Oasis XML catalogs.
Read the catalog identified by URL and return a catalog object implementing it. If more than one URL is given, chain the additional catalogs as extensions to the catalog (they will be searched before catalogs specified by EXTEND entries).
All URLs must be absolute. A URL with no protocol is treated as a filename.
Chain the catalogs identified by the URL(s) to the current catalog.
Translate the public identifier PUBID to a system identifier. Returns undef if the identifier could not be translated.
Remap the system identifier SYSID as specified by the catalog. Returns SYSID unchanged if no remapping was found.
Returns a coderef to a resolver suitable for use as the ExternEnt handler for an XML::Parser object. The resolver will first attempt to resolve a public identifier if supplied, and then attempt to remap the resulting system identifier (or the original system identifier if no public identifier was supplied). It will then call the original ExternEnt handler associated with the parser object. PARSER is the parser object; it is needed as an argument in order to obtain the original handler.
create new catalog object
Searching of chained catalogs is not purely depth-first (EXTEND items in a chained catalog will be searched before EXTEND items in the original catalog.
Error checking leaves much to be desired.
Jeff Fearn E<lt>firstname.lastname@example.orgE<gt>.
Eric Bohlman E<lt>email@example.comE<gt>.
Copyright (c) 1999-2000 Eric Bohlman. All rights reserved. Copyright (c) 2013 Jeff Fearn. All rights reserved.
This program is free software; you can use/modify/redistribute it under the same terms as Perl itself.