Posted to tcl by mjanssen at Sun May 06 23:13:14 GMT 2007view pretty

% 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) = 
%