如何使用perl为json中的每个数组元素添加双引号

Question

请帮助我如何为以下JSOn的每个元素添加双引号：

$new_constraint='{categoryIds:[0c5401a4-7d96-44f8-a229-7403453512e8],enforcedAt:'.$availableAtVar.',enforcedUntil:'.$availableUntilVar.'}';

最后它看起来应该如下：

{"categoryIds":["0c5401a4-7d96-44f8-a229-7403453512e8"],"enforcedAt":"2007-22-08.00:00:000","enforcedUntil":"2007-22-08.00:00:000"}

Answer 1

为什么不首先生成有效的JSON？

E.g。

use JSON::MaybeXS;
...
my $new_constraint = encode_json({
    categoryIds   => ['0c5401a4-7d96-44f8-a229-7403453512e8'],
    enforcedAt    => $availableAtVar,
    enforcedUntil => $availableUntilVar,
});

通过这种方式，您不需要稍后修复的“几乎JSON”。