Writing an Array Variable to a File
It often occurs that you want to save the value of an array so that you can analyze its results at a later time. The following macro writes array values to a file:
proc save_to_file {var fname} {
set values [capturedprint$var]
set f [open $fname w]
puts $f $values
close $f
}
The following example shows how you might use this macro. Using the exec command displays the file that was just written.
d1.<> dprint list3
list3 = {
(1) = 1 (0x00000001)
(2) = 2 (0x00000002)
(3) = 3 (0x00000003)
}
d1.<> save_to_file list3 foo
d1.<> exec cat foo
list3 = {
(1) = 1 (0x00000001)
(2) = 2 (0x00000002)
(3) = 3 (0x00000003)
}
d1.<>
