Posted to tcl by pascal at Mon Mar 31 18:57:25 GMT 2014view raw

  1. package require unicode
  2. set map [list ä ae ü ue ß ss ö oe]
  3. set msg "Grüße aus Deutschland."
  4. puts "$msg >> [string map $map $msg]"
  5.  
  6. foreach file [glob testde*] {
  7. set file [unicode::tostring [unicode::normalize C [unicode::fromstring $file]]]
  8. puts "$file >> [string map $map $file]"
  9. }
  10.  
  11.  
  12.  
  13.