Posted to tcl by crshults at Fri Sep 16 20:47:52 GMT 2016view raw
- set x [dict create \
- key1 [dict create \
- subkey1 subvalue1a \
- subkey2 subvalue2a \
- subkey3 subvalue3a \
- ] \
- key2 [dict create \
- subkey1 subvalue1b \
- subkey2 subvalue2b \
- subkey3 subvalue3b \
- ] \
- ]
- dict with x key1 {
- puts $subkey1
- puts $subkey2
- puts $subkey3
- }
- dict with x key2 {
- puts $subkey1
- puts $subkey2
- puts $subkey3
- }