Simple Schema Validierung

#!/usr/bin/perl

use strict;
use warnings;

use XML::LibXML;

if (@ARGV != 2) {
        print "$0 <xml file> <schema file>\n";
        exit 1;
}

my $url = $ARGV[0];
my $xsd = $ARGV[1];

print "Validating: $url with $xsd\n";
my $doc           = XML::LibXML->new->parse_file($url);
my $xmlschema = XML::LibXML::Schema->new(location =>  $xsd);
eval { $xmlschema->validate($doc); print "Dokument okay.\n"; };

if ($@) {
        print "Dokument has errors: $@\n";
}