Going by the message and the documentation for the modules in question, it would not seem that the error message is incorrect or misleading. What you've passed in to the validate method of the XML::LibXML::Document object in your eval block is the name of a DTD file. But that's not the right sort of critter -- when it says it wants a DTD object, it wants a XML::LibXML::Dtd object, as is made manifest by the man page for XML::LibXML::Document
You may also pass in a XML::LibXML::Dtd object,
to validate against an external DTD:
if (!$dom->is_valid($dtd)) {
warn("document is not valid!");
}
So yu need to get from the file to the object, and that you would do with something like:
eval {
$document = $parser->parse_file($file_target);
my $dtd = XML::LibXML::Dtd->new($dtd_file);
$document->validate($dtd);
};
HTH!
Update: whoops, no that isn't enough. In order to create a DTD object, you need both the PUBLIC id (e.g. -//OASIS//DTD DocBook XML V4.1.2//EN -- to pick a favourite of mine) and a SYSTEM id (which can be the name of the file, including all relevant path information). You can also read the file into a string and pass that in, but in testing I found that didn't play nicely if the DTD references entities defined in still other files.
Also, if the XML file has a DOCTYPE line in it,, that should be sufficient, since creating the DTD object is only necessary if that line is not present.
For more info, try perldoc XML::LibXML::Dtd on your system =)
If not P, what? Q maybe? "Sidney Morgenbesser" |