请用tcl写一段脚本，将输入文件中的. [ ]替换为_

以下是使用Tcl编写的脚本，将输入文件中的. [ ]替换为_：

set input_file [lindex $argv 0]  ;# 从命令行参数获取输入文件名

set output_file [file rootname $input_file]_output[file extension $input_file]  ;# 设置输出文件名为输入文件名加上"_output"后缀

set fp_in [open $input_file r]  ;# 打开输入文件以供读取
set fp_out [open $output_file w]  ;# 打开输出文件以供写入

while {[gets $fp_in line] != -1} {
    set line [string map {".","_" "[","_" "]","_"} $line]  ;# 使用string map函数将. [ ]替换为_
    puts $fp_out $line  ;# 将替换后的行写入输出文件
}

close $fp_in  ;# 关闭输入文件
close $fp_out  ;# 关闭输出文件