set in_f “./in.txt”
set out_f "./out.txt"
set inf [open $in_f r]
set outf [open $out_f w+]
set old_str "aaaaaa"
set new_str "bbbbbbb"
while {[gets $inf line] != -1} {
set line [string map [list $old_str $new_str] $line]
puts $outf $line
}
close $inf
close $outf
将文件in.txt里的字符串aaaaaa转换为字符串bbbbbbbb,并输出新的文件out.txt.