Posted to tcl by evilotto at Wed Oct 01 18:46:26 GMT 2014view raw

  1. set data {gi4uIMKn4oCCLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4u4oCCLi4gwqfigIIK}
  2.  
  3. set f [file tempfile]
  4. chan configure $f -encoding binary
  5. puts -nonewline $f [binary decode base64 $data]
  6. flush $f
  7. seek $f 0
  8. chan configure $f -encoding utf-8
  9. puts stderr "about to read"
  10. set newdata [read $f 130]
  11. puts stderr [string length $newdata]
  12.