有没有办法在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为false值,即:

$JSON::AUTOCONVERT = 0;