Posted to tcl by pascal at Mon Mar 31 17:59:27 GMT 2014view raw

  1. # on OSX Create a file in the current working directory called 'testde ä ae ü ue ß ss ö oe'
  2. # and execute this script.
  3.  
  4. set map [list ä ae ü ue ß ss ö oe]
  5. set msg "Grüße aus Deutschland."
  6. puts "$msg >> [string map $map $msg]"
  7.  
  8. foreach file [glob testde*] {
  9. puts "$file >> [string map $map $file]"
  10. }
  11.  
  12.  
  13.  
  14.