loading .json file in tcl

Question

I have quite a large (30 kb) .json file, that I want to read inside a script. Till now I just copied the content of the file in my script, but that leads to very ugly code.

This is the code

set allAttrib { )
set allAttrib_d [::json::json2dict $allAttrib]

I am sure this should not be that hard, but I do not manage to find an answer somewhere.

Thanks in advance

Chris Heithoff · Answer

You need to open and read the file to a string.

set fp [open "somefile" r]
set json_string [read $fp]
close $fp
set allAttrib_d [::json::json2dict $json_string]

https://wiki.tcl-lang.org/page/How+do+I+read+and+write+files+in+Tcl

loading .json file in tcl

1 Answers