如何安全地从 JSON 1 升级到 JSON 2 wrt utf8 字符串？

Question

我们拥有大量使用 JSON v1 API 的大型代码库：

use JSON;
my $json = objToJson($data);
my $data = jsonToObj($json);

我们想升级到 JSON v2，因此我们可以开始在新代码中使用它，因为我们遇到了其他依赖于 v2 API 的模块。

但是，如果我存储了一个由objToJson() 创建的 utf8 字符串，那么JSON::XS 将不再以相同的方式对其进行解码（这是 JSON v2 在幕后使用的）。

use JSON;
use JSON::XS;
use warnings;
use strict;

my $data    = ["\x{263a}b"];
my $encoded = JSON::objToJson($data);
print "different!\n"
  unless JSON::jsonToObj($encoded)->[0] eq JSON::XS::decode_json($encoded)->[0];
print "different!\n"
  unless JSON::jsonToObj($encoded)->[0] eq JSON::XS->new->decode($encoded)->[0];

我们有什么方法可以升级到 JSON v2，但仍然保留 v1 API 以向后兼容现有代码？

Answer 1

模块在进行此类剧烈更改时应使用新名称。在这种情况下，JSON 2.x 主要是 JSON::XS 的包装器这一事实很方便地意味着他们所做的正是如此。

我推荐：

1. 保持安装 JSON 1.x。
2. 安装 JSON::XS。
3. 闲暇时，将 JSON 1.x 转换为 JSON::XS。
4. 如果您愿意，现在可以安全地升级到 JSON 2.x。
   1. 安装 JSON 2.x
   2. s/JSON::XS/JSON/g