使用 PERL 为 JSON 添加价值答案

【问题标题】：Add value into JSON with PERL使用 PERL 为 JSON 添加价值
【发布时间】：2017-11-28 05:42:36
【问题描述】：

我用 PERL 创建我的 json：

$perl_data{form . $num}{filed1} = {name_field => $name, type => $type, length => $max};

结果是这样的：

{
   "form1" : {
      "codifica" : "multipart/form-data",
      "filed0" : {
         "name_field" : "nome",
         "type" : "TEXT",
         "length" : ""
      },
      "action" : "nulla.php",
      "filed1" : {
         "name_field" : "cognome",
         "valore" : "mamma",
         "type" : "TEXT",
         "length" : "100"
      },
      "metodo" : "GET"
   }
}

如果我想稍后在$perl_data{form . $num}{filed1} 向 JSON 添加更多数据，我该怎么做？

例如：

$perl_data{form . $num}{filed1} = {name_field => $name, type => $type, length => $max};
..code..
..code..
..code..
??? how i can add "key => $value" into $perl_data{form . $num}{filed1}?

谢谢！

【问题讨论】：

您是否意识到您的问题与 JSON 无关？ JSON 只是一种序列化复杂数据的方式，以便可以存储或发送到另一个程序。您应该对 JSON 字符串执行的唯一操作是解析它以重新创建数据结构。

标签： json perl parsing

【解决方案1】：

$perl_data{"form$num"}{filed1}{key} = $value;

【讨论】：