json - perlで数値の配列をjsonに変換し、文字列の配列を取得する

Question

数値の配列をjsonに変換しようとしています:

   $json = to_json("numbers_array" => \@numbers_array);
   $json を印刷します。

しかし、私が得ている出力は次のとおりです。

  {"numbers_array" => ["1","2","3"] }

push() を使用して要素を追加して配列を構築しています。出力が次のようになるように、json に変換して数値型を保持するにはどうすればよいですか。

  {"numbers_array" => [1,2,3]}

ありがとう！

Answer 1

JSONドキュメントから：

---

数値化することで、型を強制的に数値にすることができます。

   my $x = "3"; # some variable containing a string
   $x += 0;     # numify it, ensuring it will be dumped as a number
   $x *= 1;     # same thing, the choice is yours.

---

私はこのようなことを試してみます:

    $json = to_json({numbers_array => [map { $_ + 0 } @numbers_array]});
    print $json;