Stuff with the Perl Foundation. A couple of patches in the Perl core. A few CPAN modules. That about sums it up.
foreach (@$elements) {
$_->{ delete $_->{name} } = delete $_->{value};
$_ = {
$class->_reformat(
Array::AsHash->new( { array => [%$_] } )
)->get_array
};
}
Just because that's exactly what I needed for the problem at hand doesn't make me feel any better.
Why did you write it this way? (Score:1)
That’s very dense. Putting a new key/value pair in the hash at the same time as extracting it from the self-same hash is a real stumbler. The other statement is a lot less terrible, but reading a multiply nested multi-line expression is never fun. And it’s all in situ modifications. And all on
$_. Just using an actual variable name and linearising things a bit helps a heap:Re: (Score:2)
I agree your code is clearer and it's certainly something I need to seriously rethink. It's part of Bermuda and I've been struggling with the YAML and JSON implementation. Basically, I've found that since we (the BBC) primarily need this for our XML representation, I've focused much energy on this. We'd like to take the same island file which maps an object to XML and use the same island to produce multiple serializations in XML, YAML, and JSON. Unfortunately, it's not extremely clear how to transform X
Re: (Score:1)
A general serialisation of XML to JSON is a fool’s errand. It has come up numerous times in the Atom camp, and every time the discussion goes nowhere. You can of course define a full mapping of XML to JSON, but the result is nothing at all like how you’d express the same data if you were writing JSON by hand – you get one or two extra layers of indirection along every step of the way.
The only approach that yields usable results is to define a first-class serialisation of your domain mode