学习TCL遇到一点问题

edmilson28

使用windows环境下的ACTIVE TCL 8.5启动WISH.EXE
用console加载tcl文件，内容如下
proc occur {value list} {

set count 0

foreach el $list{

if $el==$value{

incr count
}
}
return $count
}

然后跳回CONSOLE界面输入 occur 18 {1 34 18 16 72 1994 -1}
结果wrong # args: should be "foreach varList list ?varList list ...? command"
为啥？？
PS:有没有啥WINDOWS界面下比较好的tcl解释器和编译器？

武也锋

proc occur {value list} {
        set count 0
        foreach el $list {
        if { $el == $value } {
                incr count
        }
}
return $count
}

edmilson28

回复 2# 武也锋


   3Q