![](https://img-blog.csdnimg.cn/20190918140012416.png?x-oss-process=image/resize,m_fixed,h_224,w_224)
无线传感网 — TCL
tcl脚本、otcl脚本
小猪快点跑
这个作者很懒,什么都没留下…
展开
-
tcl-otcl 脚本:concat(合并两个 list)
concat:合并两个 list。# 合并两个listset a {0 1 2}puts $aset b {k f c}puts $bset ab [concat $a $b] ;# 合并两个 listputs $ab0 1 2k f c0 1 2 k f c原创 2020-05-09 20:36:50 · 4035 阅读 · 0 评论 -
tcl-otcl 脚本:由父子关系,输出一个层序遍历结果
父子关系:输入: 节点列表 5 8 7 3 2 父节点列表 10 5 5 10 3输出: 层序遍历结构 10 5 3 8 7 2set child {5 8 7 3 2}set father {10 5 5 10 3}set root 10set outOrder {root} ;# 初始...原创 2020-05-09 20:00:14 · 183 阅读 · 0 评论 -
tcl-otcl 脚本:逆序排列
1、lreverseset Order {1 2 3}puts "Order : {Order}"set reverseOrder ""set reverseOrder [lreverse $reverseOrder]puts "reverseOrder : {$reverseOrder}"Order : {1 2 3}reverseOrder : {3 2 1}2、正序遍历,前插set Order {1 2 3}puts "Order : {Order}"set rev原创 2020-05-09 19:28:10 · 718 阅读 · 0 评论 -
tcl-otcl 脚本:list(列表)、llength(长度)、lindex(索引)、lsearch(查找)
1、list list:列表。set mylist {1 2 3}puts $mylist1 2 32、llength llength:计算 list 的长度。set mylist {1 2 3}puts $mylistset len [llength $mylist]puts $len1 2 333、lindex lindex:取list 指定索引位置的值,索引范围为:从 0 到 len-1。set myli...原创 2020-05-09 19:04:17 · 4629 阅读 · 0 评论 -
tcl-otcl 脚本:linsert(插入)
linsert:插入 list 的指定索引位置,前插,从 0 位置开始。(1)插入头部set mylist {1 2 3}puts $mylistset mylist [linsert 0 k]puts $mylist1 2 3k 1 2 3(2)插入尾部set mylist {1 2 3}puts $mylistset mylist [linsert end k]puts $mylist1 2 31 2 3 k(3)插入任意位置set...原创 2020-05-09 18:47:02 · 800 阅读 · 0 评论 -
tcl-otcl 脚本:lreplace(替换、删除)
lreplace:替换 / 删除 指定 索引位置 / 索引范围 的元素。1、替换(1)替换指定索引范围的元素#---------------------lreplace----------------------puts "----------replace any element----------"set mylist {1 2 3}puts $mylist set mylist [lreplace $mylist 0 1 0] ;# 替换指定索...原创 2020-05-09 18:17:46 · 6384 阅读 · 0 评论 -
tcl-循环-条件
一、循环1、for循环# 正序打印for {set i 0} {$i < $n} {incr i} { puts $i}# 逆序打印for {set i [expr $n - 1]} {$i >=0} {incr i-1} { puts $i}2、while循环while {$i < $n} { puts $i ...原创 2019-04-10 19:21:50 · 1856 阅读 · 0 评论