如何在perl中向json文件添加元素[关闭]

Question

要更改 json 文件的 md5 checksum，我在 httpd.conf 中使用以下过滤器：

ExtFilterDefine jsonfilter mode=output intype=application/json cmd="/usr/bin/perl -pe 'END { unless (-f q{/tmp/md5_filter.tmp}) { print qq(\\n\,\"STRING\"\: \") . time() . qq(\x0D\"\\n) }'"

但是在过滤器运行之后，我收到一个错误，可能是因为在最后一个括号} 之后添加了新的字符串/时间戳并导致json 格式无效：

SyntaxError: JSON.parse: unexpected non-whitespace character after JSON data at line 224 column 2 of the JSON data

有人知道如何正确运行吗？只是为了确定：我只想在文件响应客户端浏览器之前更改文件的输出。我不想更改原始文件本身。这应该保持不变。

Answer 1

可能是因为在最后一个括号 } 之后添加了新字符串/时间戳，并导致 json 格式无效

我不知道你工作环境的任何细节，但我怀疑你的怀疑在这里是正确的。

您可以尝试修复您的字符串操作解决方案（也许通过在处理输入的最后一行时解决，然后在打印右大括号之前打印您的加法。但最好的解决方案是将输入收集到单个字符串，然后使用 JSON 解析器对其进行处理。

类似这样的东西（未经测试）：

perl -MJSON -ne '$json .= $_; END { my $data = decode_json($json); $data->{STRING} = time; print encode_json($data);'

更新：解释我的代码的各个部分。

• -MJSON - 加载 JSON 模块
• -ne - n 迭代输入（依次将每一行放入 $_）； e 从命令行执行代码
• $json .= $_ - 这是针对输入的每一行运行的。它只需要每一行并将它们全部聚集在一个名为 $json 的变量中
• END { ... } - 这段代码只运行一次 - 在输入全部被读取之后
• my $data = decode_json($json) - 获取 JSON 文本字符串（现在存储在 $json 中）并将其解码为 Perl 数据结构。该数据结构存储在$data
• $data->{STRING} = time - 向数据结构添加另一个键/值对
• print encode_json($data) - 将更改后的数据结构编码回 JSON 字符串并将该字符串打印到 STDOUT