程序只不过是具有一系列命令的代码块,这些命令提供了特定的可重用功能.它用于避免在多个位置重复相同的代码.程序等同于许多编程语言中使用的函数,并且在 proc 命令的帮助下在Tcl中可用.
创建简单过程的语法是如下所示 :
proc procedureName {arguments} { body }
程序的一个简单示例在下面给出 :
#!/usr/bin/tclsh proc helloWorld {} { puts "Hello, World!" } helloWorld
执行上述代码时,会产生以下结果 :
Hello,World!
带参数的过程示例如下所示 :
#!/usr/bin/tclsh proc add {a b} { return [expr $a+$b] } puts [add 10 30]
执行上述代码时,它产生以下结果 :
40
带参数的过程示例如下所示 :
#!/usr/bin/tclsh proc avg {numbers} { set sum 0 foreach number $numbers { set sum [expr $sum + $number] } set average [expr $sum/[llength $numbers]] return $average } puts [avg {70 80 50 60}] puts [avg {70 80 50 }]
当上面的代码是执行后,它产生以下结果 :
65 66
默认参数用于提供可在未提供值时使用的默认值.默认参数的过程示例(有时称为隐式参数)如下所示 :
#!/usr/bin/tclsh proc add {a {b 100} } { return [expr $a+$b] } puts [add 10 30] puts [add 10]
执行上述代码时,会产生以下结果 :
40 110
递归过程的示例如下所示 :
#!/usr/bin/tclsh proc factorial {number} { if {$number <= 1} { return 1 } return [expr $number * [factorial [expr $number - 1]]] } puts [factorial 3] puts [factorial 5]
执行上面的代码时,会产生以下结果 :
6 120