Posted to tcl by dbohdan at Sun Aug 18 20:23:56 GMT 2019view pretty

package require http
source json.tcl  ;# From jimhttp.
 
http::config -accept application/json
set token [http::geturl http://musicbrainz.org/ws/2/release/817bfcee-a4ee-4afb-9314-9ae0e2885f57?inc=place-rels+release-groups]
set query [json::parse [http::data $token]]

puts "title is [dict get $query title]"
 
puts [dict get $query relations 0]

Comments

Posted by davygrvy at Sun Aug 18 21:32:10 GMT 2019 [text] [code]

nice, thanks

Posted by davygrvy at Sun Aug 18 21:48:55 GMT 2019 [text] [code]

https://github.com/dbohdan/jimhttp/blob/master/json.tcl