用tcl脚本批量替换文件的字符串

最新推荐文章于 2024-08-12 14:15:43 发布

原创最新推荐文章于 2024-08-12 14:15:43 发布 · 702 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#java #前端 #linux

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.