Posted to tcl by evilotto at Wed Oct 01 18:46:26 GMT 2014view raw
- 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]