学习TCL遇到一点问题
时间:10-02
整理:3721RD
点击:
使用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解释器和编译器?
用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
}
3Q