Posted to tcl by evilotto at Thu Oct 11 17:27:17 GMT 2012view raw
- 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