Wie kann ich boolesche JSON-Werte für die Ausgabe mit XMLout konvertieren?

Question

Es gibt boolesche Werte in der JSON-Datenstruktur, die ich verwende. Wenn Sie decode_json aufrufen, um es in eine Perl-Datenstruktur zu konvertieren und an die XMLout-Funktion von XML::Simple zu senden, wird ein Fehler ausgegeben, weil XMLout nicht weiß, wie mit JSON::XS::Boolean Werten umzugehen ist.

Gibt es eine Möglichkeit, die JSON::XS::Boolean Werte in einer Datenstruktur in XML zu konvertieren?

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

Im Code abive, erhalte ich die folgenden Fehler - kann keinen Wert vom Typ kodieren: JSON :: XS :: Boolean

A print Dumper $result gibt:

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

Answer 1

ich die same question on PerlMonks gefragt und bin die vorgeschlagene Lösung unter reproduzieren.

Grundsätzlich ist die Lösung, die den Wert von JSON :: XS :: Boolean auf einen geeigneten Wert zu ändern, bevor es zu XMLout vorbei:

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); 

Ausgang:

C:\Temp> test.pl 
<root a="x" b="true" /> 

Answer 2

Bearbeiten: Ich schrieb diese Antwort vor allen Änderungen an der ursprünglichen Frage. Die Frage lautet nun, dass das ursprüngliche Poster eine XML-fähige Struktur für die Verwendung mit XML :: Simple erstellen möchte; Ursprünglich wollte er die JSON-Struktur einfach in einen Textknoten einfügen.

Perl-Objekte müssen JSON-codiert werden, bevor sie über die Leitung gesendet werden.

Von Ihrem Beispiel:

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

Sie erhalten die folgenden:

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