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

# 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]"
}