A-A+

TCL/TK命令详解之数组处理命令array

2015年07月28日 脚本 阅读 6,681 views 次

命令:array
格式:array option arrayName ?arg arg ...?
作用: 处理数组变量。这个命令执行几种可选项中的一个操作,操作的对象为arrayName,除非以下的命令特殊声明,否则arrayName必须是存在的数组变量名称。option变元决定了要对数组变量进行什么样的操作
(1)array size arrayName
作用:返回一个十进制的字符串数值来指出数组中元素的数量,如果arrayName不是一个数组的名字就返回0
(2)array names arrayName ?mode? ?pattern?
作用:返回一个匹配pattern的数组元素索引的列表,mode可以是-exact-glob-regexp中的一个,指定了匹配的风格,如果不指定mode,默认为-glob。如果需要了解详细的匹配风格请参考string matchregexp。如果不指定pattern则返回数组中所有的索引,如果arrayName不是一个数组变量的名字或者没有包含任何元素就返回一个空列表。
例:
1)
% set aa(ab) 111;set "aa(ac)" 222;set aa(ad) ten
ten
% array size aa
3
% array names aa
ac ad ab
2)
set aa(ab) 111;set "aa(ac)" 222;set aa(ad) ten
foreach i [array names aa] {
if {($aa($i) == 222)} {
unset aa($i)
}
}
% array names aa
ad ab
解析:array names命令配合foreach命令实现整个数组的遍历。本例在数组遍历中删除了值为222的元素。
(3)array anymore arrayName searchId
作用:如果在一次数组搜索当中数组中还有剩余的元素就返回1,如果没有剩余的元素就返回0searchId指定了被检查arrayName的搜索标示符,这个标示符必须是命令array startsearch返回的搜索标示符。这个命令在数组有空索引的元素时非常有用,因为array nextelement的返回值并不能说明搜索是否完毕。
(4)array donesearch arrayName searchId
作用:这个命令终结一次数组搜索,searchId指出了需要终结的数组搜索标示符,这个标示必须是命令array startsearch返回的搜索标示符。返回一个空字符串。
(5)array exists arrayName
作用:如果arrayName是一个数组变量就返回1,如果没有这个变量或者是非数组变量就返回0
(6)array get arrayName ?pattern?
作用:返回一个列表,列表中的元素是成对的,交替的出现索引和对应数组值,如果不指定pattern,所有数组的元素都回返回,如果指定了pattern,只有匹配pattern(与string match匹配风格相同)的数组元素返回。如果arrayName不是一个数组变量的名字或者没有包含任何元素就返回一个空列表。
(7)array nextelement arrayName searchId
作用:返回arrayName数组中的下一个元素索引,如果数组中所有的元素都搜索到了就返回空字符串,searchId指出了需要终结的数组搜索标示,这个标示必须是命令array startsearch返回的搜索标示。警告:如果数组中有添加和删除元素的操作,那么所有的搜索都回自动结束,就像是调用了array donesearch,这将会导致array nextelement操作失败。
(8)array set arrayName list
作用:设置一个或多个数组元素,list必须是像array get返回值风格的列表,第奇数个列表元素被认为是arrayName的一个元素索引,紧接着的第偶数个列表元素就被当作前一个元素的数组中的值,如果变量arrayName不存在或者为空,就创建一个空数组arrayName
(9)array startsearch arrayName
作用:这个命令开始在arrayName数组中进行一个元素一个元素的搜索,array nextelement命令返回下一元素的索引,当搜索完毕,array donesearch命令必须调用,返回值是一个搜索标示符,这个搜索表示符可以在array nextelementarray donesearch中使用来标示操作的搜索,通过使用搜索标示符允许对一个数组同时进行不同的搜索。目前,普遍使用的方式是使用array getarray namesforeach一起使用来遍历数组中的每一个元素。具体请参考下面的示例。
(10)array statistics arrayName
作用:返回数组中元素在哈希表的分配方式的统计,这个命令包含表格中条目数,buckets数目和buckets的利用情况。
(11)array unset arrayName ?pattern?
作用:删除数组中所有匹配pattern的元素(与string match匹配风格相同),如果arrayName不是一个数组变量或者没有匹配到任何元素,不会产生错误,如果忽略了pattern变元并且arrayName是一个数组名称,这个命令将删除整个数组所有的元素,这个命令总是返回一个空字符串。
例:
array set colorcount {
red 1
green 5
blue 4
white 9
}

foreach {color count} [array get colorcount] {
puts "Color: $color Count: $count"
}
→ Color: blue Count: 4
Color: white Count: 9
Color: green Count: 5
Color: red Count: 1

foreach color [array names colorcount] {
puts "Color: $color Count: $colorcount($color)"
}
→ Color: blue Count: 4
Color: white Count: 9
Color: green Count: 5
Color: red Count: 1

foreach color [lsort [array names colorcount]] {
puts "Color: $color Count: $colorcount($color)"
}
→ Color: blue Count: 4
Color: green Count: 5
Color: red Count: 1
Color: white Count: 9

array statistics colorcount
→ 4 entries in table, 4 buckets
number of buckets with 0 entries: 1
number of buckets with 1 entries: 2
number of buckets with 2 entries: 1
number of buckets with 3 entries: 0
number of buckets with 4 entries: 0
number of buckets with 5 entries: 0
number of buckets with 6 entries: 0
number of buckets with 7 entries: 0
number of buckets with 8 entries: 0
number of buckets with 9 entries: 0
number of buckets with 10 or more entries: 0
average search distance for entry: 1.2

个人公众号“数字化设计CAX联盟”,欢迎关注,共同交流
标签:
为您推荐:

给我留言

© 坐倚北风 版权所有 严禁镜像复制 苏ICP备15034888号. 基于 Ality 主题定制 AliCMS
联系邮箱:leanwind@163.con,微信公众号:数字化设计CAX联盟

用户登录

分享到: