语法:tcl语法速查
差别
这里会显示出您选择的修订版和当前版本之间的差别。
两侧同时换到之前的修订记录前一修订版后一修订版 | 前一修订版 | ||
语法:tcl语法速查 [2025/01/10 11:22] – [11.4 可变个数参数] user01 | 语法:tcl语法速查 [2025/05/08 10:42] (当前版本) – [8.7 生成连续数字list] user01 | ||
---|---|---|---|
行 8: | 行 8: | ||
参考: | 参考: | ||
- | * https:// | ||
- | |||
* [[http:// | * [[http:// | ||
行 379: | 行 377: | ||
Returns string repeated count number of times. | Returns string repeated count number of times. | ||
- | ==== - string | + | ==== - string |
- | 转大写 | + | **转大写** |
< | < | ||
string toupper string ?first? ?last? | string toupper string ?first? ?last? | ||
</ | </ | ||
- | ==== - string tolower ==== | + | **转小写** |
- | 转小写 | + | |
< | < | ||
string tolower string ?first? ?last? | string tolower string ?first? ?last? | ||
</ | </ | ||
+ | |||
===== - 布尔值 ===== | ===== - 布尔值 ===== | ||
行 629: | 行 628: | ||
</ | </ | ||
+ | ==== - lassign ==== | ||
+ | <code tcl> | ||
+ | % split {a:2} {:} | ||
+ | a 2 | ||
+ | % lassign | ||
+ | % puts $m1 | ||
+ | a | ||
+ | % puts $m2 | ||
+ | 2 | ||
+ | </ | ||
==== - list 嵌套==== | ==== - list 嵌套==== | ||
<code tcl> | <code tcl> | ||
行 890: | 行 899: | ||
+ | ==== - 生成连续数字list ==== | ||
+ | tcl语言并没有原生类似perl 1..10产生10个连续数字的语法,可以使用类似以下proc的方式产生。 | ||
+ | |||
+ | <code tcl> | ||
+ | proc range {start end} { | ||
+ | set list {} | ||
+ | for {set i $start} {$i <= $end} {incr i} { | ||
+ | lappend list $i | ||
+ | } | ||
+ | return $list | ||
+ | } | ||
+ | set numbers [range 1 10] ;# 生成 1 到 10 的列表 | ||
+ | </ | ||
行 1134: | 行 1156: | ||
==== - 可变个数参数 ==== | ==== - 可变个数参数 ==== | ||
- | 其实就是把它当做是数组list,用list来装参数 | ||
<code tcl> | <code tcl> | ||
+ | ########### | ||
% proc calc_sum {numbers} { | % proc calc_sum {numbers} { | ||
set sum 0 | set sum 0 | ||
行 1151: | 行 1173: | ||
70 | 70 | ||
- | ###########情况2 参数以args结尾 | + | ###########用法2,参数以args结尾, args就代表不确定数量的多个参数 |
% proc calc_sum2 {args} { | % proc calc_sum2 {args} { |
语法/tcl语法速查.1736479377.txt.gz · 最后更改: 2025/01/10 11:22 由 user01