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]