Guest User

Untitled

a guest
May 16th, 2018
161
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 0.16 KB | None | 0 0
  1.     set f1 "$table(tmp)$fn"
  2.     set f [open $f1 w]
  3.     fconfigure $f -translation binary
  4.     puts -nonewline $f $file
  5.     close $f
  6.     set data [open "$f1" r]
  7.        
  8.     putlog "$data"
Add Comment
Please, Sign In to add comment