有没有办法在JSON 1.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.x时使用表示引用数字的字符串，与使用JSON 2.x时引用它们的方式相同。有没有办法指导JSON 1.x Perl模块执行此操作？

Answer 1

将AUTOCONVERT设置为假值，即：

$JSON::AUTOCONVERT = 0;