tcl 脚本引用common.tcl 脚本

日常常用命令

~!@#$%^&
curl %temp%/baidu/7710482-2eb5bad662130488.png  https://img.haomeiwen.com/i7710482/2eb5bad662130488.png 

mspaint

~!@#$%^&

在myApp.tcl中引用 common.tcl， 之前的方式是

set fp [open scripts/common.tcl]
set cmd [read $fp]
eval $cmd
close $fp

可以优化为

source [file join [file dirname [info script]] "common.tcl"]

这段代码是用 Tcl（Tool Command Language）编写的，主要功能是构建一个文件的完整路径。我们逐步解析它：

info script: 这个命令返回当前正在执行的脚本的完整路径。
file dirname: 这个命令接受一个文件路径并返回该路径的目录部分。例如，如果输入是 /path/to/script.tcl，则返回 /path/to。
file join: 这个命令用于将多个路径部分连接成一个完整的路径。它会自动处理路径分隔符（如 / 或 \），确保生成的路径在不同操作系统上都是有效的。
"common.tcl": 这是一个字符串，表示要与之前的目录路径连接的文件名。
结合起来，这段代码的作用是：

获取当前脚本的目录。
将该目录与名为 common.tcl 的文件名组合，形成一个完整的路径。
最终，代码的结果是返回一个指向 common.tcl 文件的绝对路径，假设该文件位于当前脚本的同一目录中。