如何从tcl文件中使用sed

#!/usr/bin/env tclsh

# 定义一个函数，使用sed命令替换文件中的文本
proc sed_replace {file_path search_pattern replace_pattern} {
    set cmd "sed -i \"s/${search_pattern}/${replace_pattern}/g\" ${file_path}"
    exec $cmd
}

# 使用示例
set file_path "example.txt"
set search_pattern "foo"
set replace_pattern "bar"

sed_replace $file_path $search:variables_replacement