有没有一种方法可以在JSON 1.x Perl模块中强制引用数字? [英] Is there a way to force quotation of numbers in JSON 1.x Perl module?

问题描述

测试脚本

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

输出(JSON 1.07，Perl 5.8.7)

Output (JSON 1.07, Perl 5.8.7)

12345678901234567890123456
[12345678901234567890123456]

输出(JSON 2.15，Perl 5.10.1)

Output (JSON 2.15, Perl 5.10.1)

12345678901234567890123456
["12345678901234567890123456"]

我想使用表示使用JSON 1.x时被引用的数字的字符串，与使用JSON 2.x时所引用的数字相同.有什么方法可以指导JSON 1.x Perl模块做到这一点?

I'd like to have strings representing numbers being quoted when using JSON 1.x the same way they are being quoted when using JSON 2.x. Is there any way to direct JSON 1.x Perl module to do this?

推荐答案

将AUTOCONVERT设置为错误值，即:

$JSON::AUTOCONVERT = 0;

这篇关于有没有一种方法可以在JSON 1.x Perl模块中强制引用数字?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！