是否有一种方法可以在JSON中强制引用数字?x Perl模块

Question

测试脚本

use JSON;
$ = "n";
my $big_number = '12345678901234567890123456';
print $big_number;
print objToJson([$big_number]);

输出(JSON 1.07, Perl 5.8.7)

12345678901234567890123456
[12345678901234567890123456]

输出(JSON 2.15, Perl 5.10.1)

12345678901234567890123456
["12345678901234567890123456"]

我想有字符串表示数字引用时使用JSON 1。在使用JSON 2.x时，它们被引用的方式相同。是否有办法直接JSON 1。x Perl模块做到这一点?

Answer 1

设置AUTOCONVERT为假值，即:

$JSON::AUTOCONVERT = 0;