#!/usr/bin/tclsh set personA(Name) "Dave" set personA(Age) 14 foreach index [array names personA] { puts "personA($index): $personA($index)" }
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy. Accept Learn more