如何使用Yojson从Yojson.Safe.t对象中移除指定成员？

你的代码核心问题在于字符串比较运算符用错了：OCaml里!=是物理相等判断，只有当两个字符串是同一个内存对象时才会返回true；而你需要的是基于内容的结构相等判断，应该用<>来比较字符串。

修正后的代码 #

Yojson.Safe.Util.to_assoc json 
|> List.filter (fun (key, _) -> key <> "id")
|> `Assoc

关键说明 #

• 把t != "id"改成t <> "id"：<>是OCaml中用于结构相等比较的运算符，能正确判断两个字符串的内容是否不同，这才是你需要的过滤逻辑。
• 最后一步可以简化为直接|> Assoc，因为List.filter的输出就是键值对列表，直接传给Assoc`构造器即可。

额外优化建议 #

如果不确定输入的JSON是否一定是对象类型，建议加个类型检查避免运行时异常：

match json with
| `Assoc fields ->
    fields
    |> List.filter (fun (key, _) -> key <> "id")
    |> `Assoc
| _ -> json  // 非对象类型直接返回原数据

内容的提问来源于stack exchange，提问作者Rawley Fowler