Posted to tcl by pascal at Mon Mar 31 18:57:25 GMT 2014view raw
- package require unicode
- set map [list ä ae ü ue ß ss ö oe]
- set msg "Grüße aus Deutschland."
- puts "$msg >> [string map $map $msg]"
- foreach file [glob testde*] {
- set file [unicode::tostring [unicode::normalize C [unicode::fromstring $file]]]
- puts "$file >> [string map $map $file]"
- }