loading .json file in tcl-CodePudding

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 { <copyOfContent>)
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

CodePudding user response：

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