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