Posted to tcl by mjanssen at Sun May 06 23:13:14 GMT 2007view raw
- % set Options(name) Mark
- Mark
- % set Options(pass) Markpass
- Markpass
- % parray Options
- Options(name) = Mark
- Options(pass) = Markpass
- % array get Options
- name Mark pass Markpass
- % set f [open c:/settings.txt w]
- filee1a8d0
- % puts $f [array get Options]
- % close $f
- % unset Options
- parray Options
- "Options" isn't an array
- % set Options(user) {}
- % set Options(name) {}
- % set Options(pass) {}
- % parray Options
- Options(name) =
- Options(pass) =
- Options(user) =
- % set f [open c:/settings.txt r]
- filee47370
- % array set Options [read $f]
- % parray Options
- Options(name) = Mark
- Options(pass) = Markpass
- Options(user) =
- %