请问如何用TCL将数据存储成二进制文件？

coyoo

1. set chan [open "file_t" r]
   
2. set myfile1 [open "file_t1" a]
   
3. set my_binfile [open "bin_file.dat" w]
   
4. set a 0
   
5. fconfigure $my_binfile -encoding ascii -translation lf
   
6. while {[gets $chan line] >=0} {
   
7.     puts $myfile1 $line
   
8.     set a $line
   
9.     puts -nonewline $my_binfile $a
   
10. }
    

复制代码

上述代码是打开一个文件“file_t"，这个文件里有些数据，我想将其存储成二进制格式，可惜没有成功

coyoo

这里高手不多，或者是愿意回答问题的高手不多啊！还好问题已经解决了！！！