perl - 从解码的json创建一个json

Question

这个问题可能看起来很愚蠢，但我已经花了好几个小时。我不是perl专家。所以我有一个JSON编码的字符串，我用这个解码：

$filters = decode_json $data;
$criteria = @{shift($filters)}{'criteria'};

然后我处理这些过滤器和标准，我想以json格式返回$ data。所以我很简单想要反转上面的代码。任何帮助，将不胜感激。

Answer 1

不仅仅是

$data = encode_json $filters;