XML::Parser::Expat

[myMojito]

Hi Luddie,

Mit dem Modul XML::Parser kannst Du natürlich ei XML-Dokument auf Wohlgeformtheit überprüfen:

use XML::Parser;
my $xmlfile = shift @ARGV;
my $parser = XML::Parser->new( ErrorContext => 2 );
eval { $parser->parsefile( $xmlfile ); };

Fehlermeldung, wenn XML-Datei nicht Wohlgeformt

if ( $@ ) {
  print STDERR "\nFEHLER in '$xmlfile':\n$@\n";
} else {
  print STDERR "'$xmlfile' enthält ein wohlgeformtes XML-Dokument\n";
}

Den Quellcode habe ich aus dem Buch "Perl & XML" (O'Reilly). Jedoch nicht getestet! Wenn Du aber sowieso gerade mit dem Modul XML::Parser experimentierst, wird das Beispiel dir bestimmt helfen.

greets
myMojito