我们可以在 tcl 脚本中使用任何过滤器吗？

Question

我有一个关于for循环的问题，

for {{set loop 0} {$loop < 100} {incr loop}} {
    #do someting here
}

循环从0到99，我对循环的每个值做一些事情，但是如果循环是3，我会跳过它，那么，tcl中有没有任何过滤器可以实现它或我们应该把它写成：

for {{set loop 0} {$loop < 100} {incr loop}} {
    if {loop != 3} {
        #do someting here
    }
}

Answer 1

您可以使用“继续”命令。例如：

for {set loop 0} {$loop < 100} {incr loop} {
    if {$loop == 3} continue
    # do something here
}

Answer 2

% proc xiter {varName "over" a z "excluding" filter body} {
    upvar 1 $varName i
    set excl [lsort $filter]
    for {set i $a} {$i < $z} {incr i} {
      if {[lsearch -exact -sorted $excl $i] < 0} {
        uplevel 1 $body
      }
    }
  }
% xiter loop over 0 10 excluding {5 3 8} {
  puts $loop
}
0
1
2
4
6
7
9

Answer 3

for 的第一个、第三个和第四个参数可以是任意脚本，因此您可以这样做：

for {set i 0} {$i < 100} {incr i [expr {$i == 2 ? 2 : 1}]} {
    do stuff with $i ...
}