XML validating (no DTD)

[Ing. Branislav Gerzo]

Hello perlers,

I know how to validate XML, but still error massages appears on
STDOUT, anyone knows how to avoid them ?

my code looks:

use strict;
use XML::Checker::Parser;

my $xml_file = 'data.xml';
my $xp = new XML::Checker::Parser ( Handlers => { } );

eval {
  $xp->parsefile($xml_file);
  local $XML::Checker::FAIL = \&my_fail;
};

if ($@) {
  print "$xml_file failed validation!\n";
  die "$@";
} else {
        print "$xml_file passed validation\n";
}

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

data.xml is:
<?xml version="1.0" encoding="utf-8"?>
<series>
      <article>
             <url>http://builder.com.com/article.jhtml?id=u00220020327adm01.htm</url>
             <title>Remedial XML for programmers: Basic syntax</title>
             <summary>In this first installment in...</summary>
      </article>
</series>

OUTPUT is:
XML::Checker ERROR-101: undefined ELEMENT [series]
        Context: line 2, column 0, byte 40
XML::Checker ERROR-101: undefined ELEMENT [article]
        Context: line 3, column 6, byte 56
XML::Checker ERROR-101: undefined ELEMENT [url]
        Context: line 4, column 13, byte 80
XML::Checker ERROR-101: undefined ELEMENT [title]
        Context: line 5, column 13, byte 167
XML::Checker ERROR-101: undefined ELEMENT [summary]
        Context: line 6, column 13, byte 239
data.xml passed validation


I dont't want to see error messages.

thanks a lot!


-=x=-
Skontrolované antivírovým programom NOD32


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>