Posted to tcl by aspect at Fri Aug 15 09:29:47 GMT 2008view pretty

set a "хлеб"
set b "хлеб"
foreach enc [encoding names] {
  if {[encoding convertfrom $enc $a] == $b} {puts $enc}
}