09/09/07 10:10:20
テストコード書いてみたよ
use JSON::Syck;
use Perl6::Say;
$foo = JSON::Syck::LoadFile('test.json');
say $foo->{foo} ^ $foo->{foo} eq '0' ? '数値' : '文字列';
--test.json--
{ foo : 1 }
--結果--
数値
--test.json--
{ foo : 0.5 }
--結果--
文字列
やっぱり発想自体が間違ってたね。
ちなみに0.5はともかくPerl/PHPやCも含む大抵の処理系では0.1は文字列にする方が正確。
↓こんなことになるからね。それがなぜか分かれば君も一歩大人。
for($i = 0; $i < 1; $i += 0.1){say "$i"}