Anonymous user
XML validation: Difference between revisions
m
→{{header|Perl}}
Line 192:
=={{header|Perl}}==
<lang
use 5.018_002;
use warnings;
Line 200:
our $VERSION = 1.000_000;
my $
my $xmlschema_markup = <<'END';
<xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<xsd:element name="a" type="xsd:integer"/>
</xsd:schema>
END
my $xmlschema = XML::LibXML::Schema->new( string => $xmlschema_markup );
▲my $good_xml = $parser->parse_string('<a>5</a>');
▲my $bad_xml = $parser->parse_string('<a>5<b>foobar</b></a>');
for (
my $doc = $parser->parse_string($_);
try {
$xmlschema->validate(
}
finally {
|