First off, the XML::Checker version 0.13 documentation is wrong. Its example implies an array ref should be used with 'Handlers', but it needs a hash.

Second, XML::Checker does not find your DTD palatable. It gets upset by the ! following the c in <!ELEMENT a (b,c!)>.

With those two issues cleaned up:

use strict;
use warnings;

use XML::Checker::Parser;

my %expat_options =
  ( KeepCDATA => 1, Handlers => {Unparsed => \&my_Unparsed_handler} );
my $parser = new XML::Checker::Parser(%expat_options);

open OUT, '>', 'fail.xml';
print OUT <<OUT;
<!DOCTYPE a [
    <!ELEMENT a (b,c)>
    <!ELEMENT b (#PCDATA)>
    <!ELEMENT c (#PCDATA)>
]>
<a>
"something should not be here"
<b></b>
<c></c>
</a>
OUT
close OUT;

eval {
    local $XML::Checker::FAIL = \&my_fail;
    $parser->parsefile("fail.xml");
};

if ($@) {
    print $@;
} else {
    print "xml has been validated";
}

sub my_fail {
    my $code = shift;
    die XML::Checker::error_string( $code, @_ ) if $code < 200;
    XML::Checker::print_error( $code, @_ );
}

[download]

Prints:

XML::Checker ERROR-149: Element should only contain sub elements, foun
+d text ["something should not be here"]
    Context: line 7, column 0, byte 104

[download]
DWIM is Perl's answer to Gödel

In reply to Re: Problem using XML::Checker::Parser by GrandFather
in thread Problem using XML::Checker::Parser by squareroot3

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.