Posted to tcl by crshults at Fri Sep 16 20:47:52 GMT 2016view raw

  1. set x [dict create \
  2. key1 [dict create \
  3. subkey1 subvalue1a \
  4. subkey2 subvalue2a \
  5. subkey3 subvalue3a \
  6. ] \
  7. key2 [dict create \
  8. subkey1 subvalue1b \
  9. subkey2 subvalue2b \
  10. subkey3 subvalue3b \
  11. ] \
  12. ]
  13.  
  14. dict with x key1 {
  15. puts $subkey1
  16. puts $subkey2
  17. puts $subkey3
  18. }
  19.  
  20. dict with x key2 {
  21. puts $subkey1
  22. puts $subkey2
  23. puts $subkey3
  24. }
  25.