TCL中是否有等效于Python`if __name__ == "__main__"`的脚本复用机制？

当然有啦！TCL里完全可以实现类似Python那种「脚本同时兼具可执行文件和库」的功能，下面给你讲两种常用且靠谱的实现方式：

方法一：通过脚本路径判断执行入口 #

这是TCL社区最常用的方案，核心思路是对比脚本自身的路径和启动时传入的脚本路径，以此区分脚本是被直接执行，还是被source导入作为库使用。

举个实际的例子，假设你写了一个叫my_lib_script.tcl的脚本：

# 这里定义要共享给其他脚本的变量、过程
set shared_config {
    key1 value1
    key2 value2
}

proc print_shared_config {} {
    global shared_config
    puts "共享配置内容：$shared_config"
}

# 关键判断：当脚本被直接执行时，才运行下面的代码
if {[info script] eq $argv0} {
    # 这里写只有直接启动脚本时才会执行的逻辑
    puts "脚本被直接运行啦！"
    print_shared_config
    puts "如果是被其他脚本source导入，这段内容不会输出哦~"
}

• 当你直接执行tclsh my_lib_script.tcl时，会触发if块里的代码，输出直接执行的内容；
• 当在另一个脚本里用source my_lib_script.tcl导入时，只会加载shared_config变量和print_shared_config过程，不会执行if块里的逻辑。

小技巧：处理路径差异 #

如果你的脚本可能被用绝对路径/相对路径执行，或者遇到大小写敏感的文件系统，也可以用文件名比对来更稳妥：

if {[file tail [info script]] eq [file tail $argv0]} {
    # 直接执行时的逻辑
}

补充：和Python/Perl机制的对比 #

这个逻辑和Python的if __name__ == "__main__"、Perl的if (__PACKAGE__ eq '__MAIN__')本质是一样的——都是判断脚本的执行上下文，区分「作为主程序运行」和「作为模块被导入」两种场景。

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