Устранить ошибку в perl

Question

Мне нужно прочитать огромную базу данных xml-файлов, используя XML :: Simple.

my $xml = XMLin("${file}", ForceArray => 1, KeyAttr => {}); 

Проблема в том, что некоторые из этих xml повреждены, и я хочу, чтобы моя программа удаляла их и продолжала работать. Я не смог найти способ уловить ошибку, исходящую от XMLin parser error : Start tag expected '<' not found

Любая идея?

Answer 1

Прежде всего, пожалуйста, не используйте XML::Simple - это очень неприятно. Why is XML::Simple "Discouraged"?

Чтобы устранить вашу точку, хотя - сломанный XML должен быть фатальным для синтаксического анализатора - он должен die (по дизайну). То, как вы справиться с этим в perl является завернуть его в eval блоке, и поймать $@, чтобы увидеть, если это не удалось:

my $xml = eval { XMLin("${file}", ForceArray => 1, KeyAttr => {}); }; 
warn $@ if $@;