Perl JSON 验证函数

Question

我正在使用 Perl 模块，JSON 在 perl 脚本中处理 JSON 数据。

我想使用 JSON::Parser 模块中的 valid_json，但看起来我正在使用的版本 2.53 已弃用它。阅读 2.53 的文档，我看不到任何验证函数。

我只是依靠 decode_json, & encode_json returns 来告诉我 JSON 字符串无效吗？

Answer 1

你可以 decode_json 在 eval 中看看它是否会抛出异常。

Answer 2

没有简单的 json 验证函数可用（还）。

一种方法如下：

try {
    decode_json_utf8($json_string)
} catch($e) {
    print("invalid json. Error: $e");
}

实现此目的的另一种方法是：

eval {decode_json_utf8($json_string)}; 

print "json error" if $@;

Perl JSON validation function