使用TCL的正则表达式批量修改多个文件中的单词

# 在这里读取文件内容，将内容保存在Script变量中。
set Script {
    TEstCase {
        prec {
         asdf 
         }
        proccdure {
           PRCF_http_add { %RM_HTTP% } -Params {
           }
           
           PCRF_HTTP_AddSub  { %RM_HTTP%           } -Params {
           }
           
           PCRF_HTTP_AddSub  {   %RM_HTTP% } -Params {
           }
        }
        pest {
          PCRF_HTTP_AddSub { %RM_HTTP% } -Params {
           }
        }
    }
}

# 找到所有符合条件部分，将所有匹配的所有结果保存在temp变量中
set temp [regexp -all -inline "PCRF_HTTP_AddSub/[/t /]+{/[/t /]*%RM_HTTP%" "$Script"]
puts $temp

# 将找到的内容修改为自己希望的内容
puts [regsub -all "RM_HTTP" $temp "PGW_MML" newtemp]
puts $newtemp

# 循环处理，将找到的所有字符串替换为新的字符串
foreach lt $temp lt2 $newtemp {
    puts "lt-----$lt----lt2---$lt2"
    puts [regsub "$lt" "$Script" "$lt2" Script]
}

# 将处理后的Script保存回文件中，单文件处理完成
puts $Script