Perl XML :: Simple: SuppressEmpty для xsi: nil-Elements без содержимого?

Question

Я борюсь с XML :: Просто в Perl и элементах с возможностью NULL.

Так что это мой пример-XML:

<MyXml> 
    <SomeNumber>123</SomeNumber> 
    <EmptyOne/> 
    <NullableElement xsi:nil="true"></NullableElement> 
</MyXml> 

Если я прочитал это с XMLin и SuppressEmpty => 1 Я получаю пустую строку для EmptyOne, но Hash с xsi: nil = "true" для NullableElement. Мои вопросы: как я могу сказать XMLin игнорировать xsi: nil-Content и просто дать мне пустую строку или undef? Возможно ли это с помощью XML :: Simple или я должен переключиться на Lib :: XML?

Здесь какой-то код, чтобы увидеть результат:

use XML::Simple; 
use Data::Dumper; 

my $xmlIn = '<MyXml><SomeNumber>123</SomeNumber><EmptyOne/><NullableElement xsi:nil="true"></NullableElement></MyXml>'; 
my $xmlHash = XMLin($xmlIn, SuppressEmpty => ''); 

print Dumper($xmlHash); 

Answer 1

Ну я нашел решение моей проблемы сам, но это работает только для моего конкретного случая, потому что у меня нет никаких атрибутов мне нужно. Если да, то вы можете изменить линию

my $xmlHash = XMLin($xmlIn, SuppressEmpty => ''); 

в

my $xmlHash = XMLin($xmlIn, NoAttr => 1, SuppressEmpty => ''); 

Это отрежет все атрибуты и возвращает пустую строку как обычный пустой элемент.

Как уже упоминалось ранее, это будет работать только в том случае, если вам не нужны никакие атрибуты из xml. Если они вам понадобятся, это не сработает.

Answer 2

В XML::Twig:

use XML::Twig; 
my $xmlIn = 
    '<MyXml><SomeNumber>123</SomeNumber><EmptyOne/><NullableElement xsi:nil="true"></NullableElement></MyXml>'; 

print XML::Twig->parse($xmlIn)->get_xpath('//NullableElement', 0)->text, "\n"; 

XML::Simple: Why is XML::Simple "Discouraged"?

Это просто не стоит использовать, так как это путь к хрупкой коде.