You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
13 lines
349 B
Perl
13 lines
349 B
Perl
5 years ago
|
use XML::Parser;
|
||
|
|
||
|
my $xmlfile = "yourXML.xml";
|
||
|
|
||
|
my $parser = XML::Parser->new( ErrorContext => 2 );
|
||
|
eval { $parser->parsefile( $xmlfile ); };
|
||
|
|
||
|
if( $@ ) {
|
||
|
$@ =~ s/at \/.*?$//s; # remove module line number
|
||
|
print STDERR "\nERROR in '$file':\n$@\n";
|
||
|
} else {
|
||
|
print STDERR "'$file' is well-formed\n";
|
||
|
}
|