json - 有没有办法在 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;