Tcl抓取变量关键字所在行，并打印所有匹配行

在Tcl脚本中，如果你想抓取特定变量关键字所在的行并打印所有匹配行，可以使用`regexp`命令配合`getline`函数。假设你想要查找变量名为`myVariable`的行，你可以这样做：

set regex "^#?set\s+myVariable\=\s*([^;]+)" ;# 正则表达式匹配set myVariable=...的形式，包括可能存在的注释前缀

foreach line [file getlines your_script_file.tcl] {
    if { [regexp $regex $line] } {
        puts "匹配到的行: $line"
    }
}

这里，正则表达式`"^#?set\s+myVariable\=\s*([^;]+)"`解释如下：
- `^` 表示行开始
- `#?` 匹配可能存在的注释符号（如果存在）
- `set\s+myVariable=` 匹配"set"、空格和"myVariable="这样的模式
- `\s*` 匹配任意数量的空白字符
- `([^;]+)` 抓取紧跟在等号后面的值，直到遇到分号为止，用括号捕获这部分内容

`getlines`命令用于逐行读取文件，`regexp`检查每行是否匹配该模式，如果匹配，则打印出来。