如何将交互式TCL脚本改造为支持命令行参数一键执行

核心思路 #

• 利用TCL内置的$argc（参数数量）和$argv（参数列表）解析命令行输入
• 校验参数合法性，处理两种输入场景：指定输出文件/使用默认输出文件名
• 替换原脚本中手动输入的交互逻辑，直接读取命令行参数

修改后的完整脚本 #

#!/usr/bin/env tclsh

# 校验命令行参数数量
if {$argc < 3 || $argc > 4} {
    puts "用法错误：正确格式为 tclsh <脚本路径> <input_def> [output_def] <x_offset> <y_offset>"
    puts "示例："
    puts "  tclsh def_file.tcl my_def.def 20 20"
    puts "  tclsh def_file.tcl my_def.def my_def_new.def 20 20"
    exit 1
}

# 解析命令行参数
set input_def [lindex $argv 0]
if {$argc == 4} {
    set output_def [lindex $argv 1]
    set offset_x [lindex $argv 2]
    set offset_y [lindex $argv 3]
} else {
    # 未指定输出文件时，使用默认命名规则
    set output_def "${input_def}_modified.def"
    set offset_x [lindex $argv 1]
    set offset_y [lindex $argv 2]
}

# -------------------原脚本核心逻辑（保留原有功能）-------------------
# 替换为你实际处理DEF文件的代码，示例框架如下：
# set in_handle [open $input_def r]
# set def_content [read $in_handle]
# close $in_handle
# 
# # 在这里执行偏移修改的核心逻辑
# # ...
# 
# set out_handle [open $output_def w]
# puts $out_handle $def_content
# close $out_handle
# -------------------原脚本核心逻辑结束-------------------

puts "处理完成！输出文件：$output_def"

关键说明 #

• 参数校验：当参数数量不符合要求时，直接输出用法说明并退出，避免无效执行
• 默认输出规则：未指定输出文件时，自动在输入文件名后追加_modified.def后缀
• 变量替换：将原脚本中gets stdin获取手动输入的逻辑，替换为lindex $argv读取的命令行参数

使用示例 #

1. 使用默认输出文件名：

tclsh /india/ksantosh/innovus/scripts/def_file.tcl def_file.def 20 20

执行后生成def_file.def_modified.def

2. 指定自定义输出文件名：

tclsh /india/ksantosh/innovus/scripts/def_file.tcl def_file.def my_custom_def.def 20 20

执行后生成my_custom_def.def

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