Posted to tcl by pascal at Mon Mar 31 17:59:27 GMT 2014view raw
- # on OSX Create a file in the current working directory called 'testde ä ae ü ue ß ss ö oe'
- # and execute this script.
- set map [list ä ae ü ue ß ss ö oe]
- set msg "Grüße aus Deutschland."
- puts "$msg >> [string map $map $msg]"
- foreach file [glob testde*] {
- puts "$file >> [string map $map $file]"
- }