用户工具

站点工具


语法:tcl语法速查

差别

这里会显示出您选择的修订版和当前版本之间的差别。

到此差别页面的链接

两侧同时换到之前的修订记录前一修订版
后一修订版
前一修订版
语法:tcl语法速查 [2025/01/10 11:22] – [11.4 可变个数参数] user01语法:tcl语法速查 [2025/05/08 10:42] (当前版本) – [8.7 生成连续数字list] user01
行 8: 行 8:
  
 参考:  参考: 
-  * https://www.yiibai.com/tcl 
- 
   * [[http://vmcc.vicp.net:9090/tcl86_doc/index.htm|tcl86_doc]]       * [[http://vmcc.vicp.net:9090/tcl86_doc/index.htm|tcl86_doc]]    
  
行 379: 行 377:
 Returns string repeated count number of times. Returns string repeated count number of times.
  
-==== - string toupper ==== +==== - string 大小写转换 ==== 
-转大写+**转大写** 
 <code> <code>
 string toupper string ?first? ?last? string toupper string ?first? ?last?
 </code> </code>
  
-==== - string tolower ==== +**转小写**
-转小写+
 <code> <code>
 string tolower string ?first? ?last? string tolower string ?first? ?last?
 </code> </code>
 +
  
 ===== - 布尔值 ===== ===== - 布尔值 =====
行 629: 行 628:
 </code> </code>
  
 +==== - lassign ====
 +<code tcl>
 +% split {a:2} {:}
 +a 2
 +% lassign  [split {a:2} {:}]  m1 m2
 +% puts $m1
 +a
 +% puts $m2
 +2
 +</code>
 ==== - 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 的列表
 +</code>
  
  
行 1134: 行 1156:
  
 ==== - 可变个数参数 ==== ==== - 可变个数参数 ====
-其实就是把它当做是数组list,用list来装参数 
  
 <code tcl> <code tcl>
 +###########用法1, 传入proc的是一个list变量
 % proc calc_sum {numbers} { % proc calc_sum {numbers} {
     set sum 0     set sum 0
行 1151: 行 1173:
 70 70
  
-###########情况 参数以args结尾+###########用法2参数以args结尾, args就代表不确定数量的多个参数
  
 % proc calc_sum2 {args} { % proc calc_sum2 {args} {
语法/tcl语法速查.1736479377.txt.gz · 最后更改: 2025/01/10 11:22 由 user01

Donate Powered by PHP Valid HTML5 Valid CSS Driven by DokuWiki