json tcl,TCL-将JSON解析为哈希/数组

I'm new in TCL, I have an JSON string, and I want to parse it to something I can use it easily like hash/ array which similar like in Perl or Java to loop the data and print it. But I've found many sources to help me, but it is very less and still couldn't get it.

And I try something like this:

#!/usr/bin/tclsh

proc dict2json {dictVal} {

# XXX: Currently this API isn't symmetrical, as to create proper

# XXX: JSON text requires type knowledge of the input data

set json ""

dict for {key val} $dictVal {

# key must always be a string, val may be a number, string or

# bare word (true|false|null)

if {0 && ![string is double -strict $val]

&& ![regexp {^(?:true|false|null)$} $val]} {

set val "\"$val\""

}

append