TCL的命令行中解析

对于脚本语言，有个最基本的功能就是命令行解析，那么就涉及到argv和argc这类系统定义的变量，下面简单的做个demo

#!/usr/bin/tclsh

proc print_help_screen {
   
   } {
   
   
    puts [join {
   
   
        "cmd1 subcmd1 Exec first Cmd"
        "cmd2 subcmd1 Exec second Cmd"
        "help         show help"
    } "\n"]

}

puts "argv0: $argv0"
puts