Rosetta Code

XML validation: Difference between revisions

Page Discussion

XML validation (view source)

Revision as of 22:09, 14 June 2017

42 bytes added ,  6 years ago
m
→‎{{header|Perl}}
Line 192:
=={{header|Perl}}==
 
<lang pythonperl>#!/usr/bin/env perl -T
use 5.018_002;
use warnings;
Line 200:
our $VERSION = 1.000_000;
 
my $xmlschemaparser = XML::LibXML::Schema->new();
 
string => <<'END'
my $good_xml = $parser->parse_string('<a>5</a>');▼
my $bad_xml = $parser->parse_string('<a>5<b>foobar</b></a>');▼
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 $parser = XML::LibXML->new();
 
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 ( \$good_xml, \$bad_xml ) {
my $doc = $parser->parse_string($_);
try {
$xmlschema->validate( ${$_} doc);
}
finally {
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/251131"