json - Opensips中Perl中的Json错误

Question

Perl 中的 json 和 json::PP 有什么区别？

在 opensips 中编写 perl 脚本时使用 Json 和 Json:PP 时遇到此错误

ERROR:core:XS_OpenSIPS__Message_log: 
perl warning: Prototype mismatch: sub main::decode_json ($) vs none.

我对这些代码有疑问：

my %postObject = ("callId" => $callID);
$postObject{'endTime'} = time() . "";
$postObject{'key'} = "12345@qwerty";
my $post_data = encode_json \%postObject;

Answer 1

“原型不匹配”警告通常意味着您sub以某种方式定义了两次，并且这两个定义的原型不匹配。

您sub decode_json ($)的主代码中有某处吗？如果你这样做，我建议删除或重命名它，因为它与decode_json其中一个JSON模块冲突。如果你不这样做，那么你可能会decode_json从你正在加载的另一个模块中获得一秒钟，在这种情况下，你必须追踪它，或者向我们提供一个最小的、完整的和可验证的示例。

我强烈建议打开warnings，因为这样您还会收到“重新定义子程序”警告，以帮助您跟踪问题。