Posted to tcl by evilotto at Wed Oct 01 18:46:26 GMT 2014view pretty
set data {gi4uIMKn4oCCLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4uLi4u4oCCLi4gwqfigIIK} set f [file tempfile] chan configure $f -encoding binary puts -nonewline $f [binary decode base64 $data] flush $f seek $f 0 chan configure $f -encoding utf-8 puts stderr "about to read" set newdata [read $f 130] puts stderr [string length $newdata]