Как я могу преобразовать логические значения JSON для вывода с использованием XMLout? - PullRequest
Новая
       20

Как я могу преобразовать логические значения JSON для вывода с использованием XMLout?

0 голосов
/ 22 июня 2009

В используемой мной структуре данных JSON есть логические значения. При вызове decode_json для преобразования его в структуру данных Perl и подачи в функцию XMLout, предоставляемую XML::Simple, выдается ошибка, поскольку XMLout не знает, как обращаться со значениями JSON::XS::Boolean.

Есть ли способ преобразовать значения JSON::XS::Boolean в структуре данных в XML? 

my $text = '{"a":"x","b":true}'; 
my $result = decode_json($text);
my $rec = XMLout( $result, RootName => 'root', SuppressEmpty => 1);

В коде abive я получаю следующую ошибку - Не могу закодировать значение типа: JSON :: XS :: Boolean

A print Dumper $result дает: 

$result = {
        'a' => 'x',
        'b' => bless( do{\(my $o = 1)}, 'JSON::XS::Boolean' )
      };

Ответы [ 2 ]

5 голосов
/ 22 июня 2009

Я задал такой же вопрос на PerlMonks и воспроизводлю предлагаемое решение ниже.

По сути, решение состоит в том, чтобы изменить значение JSON :: XS :: Boolean на соответствующее значение перед передачей его в XMLout: 

use strict;
use warnings;

use JSON;
use XML::Simple;

my $text = '{"a":"x","b":true}';
my $result = decode_json($text);

for my $value ( values %$result ) {
    next unless 'JSON::XS::Boolean' eq ref $value;
    $value = ( $value ? 'true' : 'false' );
}

print XMLout( $result, RootName => 'root', SuppressEmpty => 1);

Выход: 

C:\Temp> test.pl
<root a="x" b="true" />
0 голосов
/ 22 июня 2009

Редактировать: Я написал этот ответ перед всеми правками исходного вопроса. Вопрос, который был сформулирован сейчас, заключается в том, что оригинальный автор хочет создать XML-готовую структуру для использования с XML :: Simple; Первоначально утверждалось, что он просто хотел поместить структуру JSON в текстовый узел.

Объекты Perl должны быть JSON-кодированы перед отправкой их по проводам.

Из вашего примера: 

my $text = '{"a":"x","b":true}'; 
my $result = decode_json($text);
print JSON->new->utf8->pretty(1)->encode($result);

Вы получаете следующее: 

$ perl json.pl 
{
   "a" : "x",
   "b" : true
}
...