Recipe 68383 revision 1

#!/bin/sh
#     exec tclsh "$0" ${1:+"$@"}
proc main {} {
    set fromchars ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
    set tochars   NOPQRSTUVWXYZABCDEFGHIJKLMnopqrstuvwxyzabcdefghijklm
    set map [list]
    foreach from [split $fromchars {}] to [split $tochars {}] {
        lappend map $from $to
    }
    puts stdout [string map $map [read stdin]]
}
main

• « Back to Recipe 68383

History

• revision 1 (22 years ago)