5 lines
121 B
Tcl
5 lines
121 B
Tcl
package require json
|
|
set sample {{ "foo": 1, "bar": [10, "apples"] }}
|
|
|
|
set parsed [json::json2dict $sample]
|
|
puts $parsed
|