赤ちゃん言葉変換(正規表現によるReplace)

Tcl 30分プログラム

mzp2008-02-17

30分プログラム、その246。新しくプログラミング言語を覚えたいときに行うべき10の練習問題 | IDEA*IDEAより「赤ちゃん言葉変換」。

6. テキストを入れると語尾が赤ちゃん言葉に（例：ですよ→でちゅよ）。

正規表現による文字列置き換えで十分。ちなみに前にも書いたけど、Tclの正規表現は究極らしいですよ(id:mzp:20080210:regexp)。

使い方

$ wish baby.tcl

ソースコード

button .btn -text "Replace" -command {
    set text [.text.input get 1.0 end]
    .text.input delete 1.0 end
    .text.input insert end [regsub "です。" $text "でちゅよ。"]
}

frame .text
text      .text.input -width 30 -height 10 -yscrollcommand ".text.scroll set"
scrollbar .text.scroll -command ".text.input yview"
pack .text.scroll .text.input -side right -fill y -expand yes

pack .btn .text

参考