获取TCL中执行代码的行号

获取TCL中执行代码的行号