トップ «前の日記(■2008-01-31) 最新 次の日記(■2008-03-01)» 編集

どんぞこ日誌

2003|08|09|10|11|12|
2004|01|02|03|04|05|06|07|08|09|10|11|12|
2005|01|02|03|04|05|06|07|08|09|10|11|12|
2006|01|02|03|04|05|07|08|12|
2007|01|04|08|12|
2008|01|02|03|04|06|07|08|10|11|12|
2009|01|02|04|05|06|07|08|09|11|12|
2010|01|03|04|07|08|10|11|12|
2011|01|02|03|04|05|06|07|08|10|12|
2012|01|02|03|05|06|07|08|09|10|
2013|01|02|07|08|09|
2014|08|09|
2015|08|
2016|06|07|12|
2017|01|03|08|
2018|03|
2022|03|
2023|03|
2024|02|

同人関連(どんぞこ楽屋) | 旧い雑文   


■2008-02-16

* [Perl][メモ] 再度JSON周りB!

 前回、XSにバグがあるかなあと思って作者のMarcさんとやりとりしましたが、結局、問題ないということを確認しました。私の早とちりでした。すいません。UTF8フラグが立っても影響でないですね。
  XSとPPの動作の違いはPP側に問題があったためで、最新バージョンでは修正してあります。自分の把握している限りでは完全にXSと同じ出力になっているはずです(エラーメッセージも一部を除いて一緒)。

  あと、JSON::XS::VersionOneAndTwoというのが出たようなので、ちょっと余計な話を。
  JSON::XSはメジャーバージョンアップの際、エクスポートされる関数名がto_json, from_jsonからencode_json, decode_jsonに変わりました。この関数はJSON::XS->new->utf8->encode/decode相当(実際はそれより高速)なのですが、utf8以外のオプションを設定できません。なので、旧objToJsonのようにJSON側でオプションを渡せる関数として当初はen/decode_jsonをあてようとしたのですが、そちらの名前の方がutf8がらみであることが明確(decode, encode)になるので、名前を変更しよう、ということになりました。その代わりに、JSON側はto_json, from_jsonでオプションを設定できるようになった次第。

* [Perl][メモ] use JSON -convert_blessed_universallyB!

  JSON 1.xの$JSON::CnovBlessedの代わりにas_nonblessedオプションがあるのですが、バックエンドがXSの場合はuse JSON -support_pp_byしなければならないので嬉しくない代物です。メソッド名も気に入らない(できればconvert_blessedがよい)。
  ところで実際のconvert_blessedオプションは、encodeに渡したblessされたオブジェクトがTO_JSONメソッドを持っているとそのメソッドを呼び出してくれます。なので、下記のコードのようにUNIVERSAL::TO_JSONを定義すればas_nonblessedの代わりになるなあと。バージョン2.07からuse JSON -convert_blessed_universallyでセットされます。XSの作者がconvert_blessedの動作は将来変更するかもといっているので、これも実験的な機能になります……

 *UNIVERSAL::TO_JSON = sub {
   my $b_obj = B::svref_2object( $_[0] );
   return    $b_obj->isa('B::HV') ? { %{ $_[0] } }
           : $b_obj->isa('B::AV') ? [ @{ $_[0] } ]
           : undef
           ;
 }
[]