型に厳しい言語とCpanel::JSON::XS::Typeで仲良く - Blog::kfly8この記事はPerl Advent Calendar 2018の10日目の記事です。 JSONをdecodeする時、例えば、123、"123"は型に厳しい言語であれば、別々に扱いたいものです。 ですが、Perlでぼやっとencodeすると、これらをいっしょくたにしてしまいます。 例えば、次のコードは123とencodeされることを期待しても、"123"とencodeします。 これは、123のperl内部の値のフラグが意図せず、文字列になり*1、encodeされてしまったからです。 use JSON::XS; my $row = { id => 123 }; # ぼやっと hash key として触る my %fg; $fg{$row->{id}} = 1; print encode_json($row); # => { "id":"123" } これでは、型に厳しい言語と仲良くできませんね.
