Posted to tcl by bombo at Sat Jun 10 14:14:25 GMT 2017view raw

  1. package require json
  2. package require json::write
  3.  
  4. set json {{"foo":{"aaa":"a a a","bbb":"b b b"},"bar":{"aaa":"c c c","bbb":"d d d"}}}
  5. set decoded [json::json2dict $json]
  6.  
  7. puts "entries: [dict size $decoded]"
  8.  
  9. dict lappend decoded baz aaa {m o o} bbb {m e h}
  10. json::write indented 0
  11.  
  12. foreach item [dict keys $decoded] {
  13. set val [dict get $decoded $item]
  14. set a [dict get $val aaa]
  15. set b [dict get $val bbb]
  16.  
  17. set obj [json::write object $item [json::write object aaa [json::write string $a] bbb [json::write string $b]]]
  18. puts $obj
  19. }
  20.