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

  1. set a "хлеб"
  2. set b "хлеб"
  3. foreach enc [encoding names] {
  4. if {[encoding convertfrom $enc $a] == $b} {puts $enc}
  5. }
  6.