4 lines
108 B
Tcl
4 lines
108 B
Tcl
# replace substrings in a string
|
|
|
|
set rep [string map {"apple" "orange"} "I like apples."]
|
|
puts stdout $rep
|