Re: XML::Checker

Looking at the documentation of XML::Checker, I can see why you're confused. ugh. It turns out that XML::Checker::Parser may be a better option. Fortunately, it's much easier:

use XML::Checker::Parser;

my $parser = XML::Checker::Parser->new();

eval { $parser->parsefile ("file.xml") };
[download]

Comment on Re: XML::Checker Download Code

Replies are listed 'Best First'.
Re: Re: XML::Checker by aroso (Novice) on Jul 25, 2003 at 09:30 UTC
Thanks for your suggestion. Do you know why I run this script: `#!C:/server/Perl/bin/perl.exe use CGI qw(:standard); use XML::Checker; use XML::Checker::Parser; use strict; use warnings; my %expat_options = (KeepCDATA => 1, Handlers => [ Unparsed => \&my_Unparsed_handler +]); my $parser = new XML::Checker::Parser (%expat_options); eval { local $XML::Checker::FAIL = \&my_fail; $parser->parsefile ("xml_teste1.xml") }; if($@){ print "failed validation!\n"; die "$@"; } print "passed validation\n";` [download] give me an error like this: Can't coerce array into hash at C:/server/Perl/site/lib/XML/Parser.pm line 87. How can i resolve this error?	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re: XML::Checker
by aroso (Novice) on Jul 25, 2003 at 09:30 UTC

#!C:/server/Perl/bin/perl.exe

use CGI qw(:standard);
use XML::Checker;
use XML::Checker::Parser;
use strict;
use warnings;

my %expat_options = (KeepCDATA => 1,
                      Handlers => [ Unparsed => \&my_Unparsed_handler 
+]);

my $parser = new XML::Checker::Parser (%expat_options);


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

if($@){
  print "failed validation!\n";
  die "$@";
}
print "passed validation\n";
[download]

[reply]
[d/l]