你遇到的核心问题是TCL的变量引用规则和sed命令的参数解析不匹配，导致sed没有拿到你期望的变量值，自然无法完成替换。我来一步步拆解问题，然后给出修改后的TCL代码：

为什么直接调用sed没效果？ #

TCL里的大括号{}是强引用符号，在大括号包裹的内容里，TCL不会解析任何变量（比如$mTarget、$mReplace），会原封不动地把字符串传给sed。也就是说，sed实际收到的替换规则是s/$mTarget/$mReplace/g，而不是你期望的s/实际模块名/替换后的名字/g，自然找不到匹配的内容，替换就没有效果。

而你用csh脚本的方式能成功，是因为你通过puts把变量值直接写入了脚本文件，脚本执行时shell会解析这些变量展开后的内容，sed拿到的是正确的替换规则。

修改后的TCL代码实现 #

针对这个问题，有几种简单的修改方式，你可以根据自己的场景选择：

方式1：用双引号替换大括号（最直接） #

把包裹sed替换规则的大括号换成双引号，这样TCL会先展开里面的变量，再把完整的替换规则传给sed：

for {set i 0} {$i < [llength $moduleList]} {incr i} {
    set mTarget [lindex $moduleList $i]
    puts $mTarget
    set mReplace [lindex $moduleReplaceList $i]
    # 用双引号让TCL展开变量
    exec sed -i "s/$mTarget/$mReplace/g" $verilog_new
}

方式2：用subst命令强制展开大括号内的变量 #

如果你习惯用大括号（比如避免其他转义问题），可以用TCL的subst命令强制解析大括号里的变量：

for {set i 0} {$i < [llength $moduleList]} {incr i} {
    set mTarget [lindex $moduleList $i]
    puts $mTarget
    set mReplace [lindex $moduleReplaceList $i]
    # subst会把大括号内的变量替换为实际值
    exec sed -i [subst {s/$mTarget/$mReplace/g}] $verilog_new
}

方式3：处理正则特殊字符（更稳妥） #

如果你的模块名里包含正则表达式的特殊字符（比如.、*、/、+等），直接替换会导致sed匹配错误（比如.会匹配任意字符）。这时候需要先对目标字符串进行转义：

# 定义一个转义正则特殊字符的工具函数
proc escape_regex {str} {
    # 转义所有正则元字符
    regsub -all {([\.\*\+\?\|\(\)\[\]\{\}\^\$\-])} $str {\\\1}
}

for {set i 0} {$i < [llength $moduleList]} {incr i} {
    set mTarget [lindex $moduleList $i]
    puts $mTarget
    set mReplace [lindex $moduleReplaceList $i]
    # 转义目标字符串中的正则特殊字符
    set mTargetEscaped [escape_regex $mTarget]
    # 执行替换
    exec sed -i "s/$mTargetEscaped/$mReplace/g" $verilog_new
}

另外，如果你担心/作为分隔符和变量里的/冲突，可以把sed的分隔符换成其他字符（比如#），比如：

exec sed -i "s#$mTargetEscaped#$mReplace#g" $verilog_new

这样修改后，你就不需要生成额外的csh脚本，直接在TCL里就能完成替换操作了。

内容的提问来源于stack exchange，提问作者pilistar0222