Posted to tcl by evilotto at Thu Oct 11 17:27:17 GMT 2012view pretty

set filename "hello\xa0world"

encoding system iso8859-1
set f [open $filename w]
puts $f ok
close $f

encoding system utf-8

set files [glob "hell*"]
set fn [lindex $files 0]
set f [open $fn r]
puts [read $f]
close $f