tcl/tk参考——变量和过程array

.

.

 

名称

array - 处理数组变量

语法

array option arrayName ?arg arg ...?

描述

这个命令执行几种可选项中的一个操作，操作的对象为arrayName，除非以下的命令特殊声明，否则arrayName必须是存在的数组变量名称。option变元决定了要对数组变量进行什么样的操作，具体如下：

array anymore arrayName searchId

如果在一次数组搜索当中数组中还有剩余的元素就返回 1，如果没有剩余的元素就返回 0。 searchId指定了被检查 arrayName的搜索标示符，这个标示符必须是命令 array startsearch返回的搜索标示符。这个命令在数组有空索引的元素时非常有用，因为 array nextelement的返回值并不能说明搜索是否完毕。

array donesearch arrayName searchId

这个命令终结一次数组搜索， searchId指出了需要终结的数组搜索标示符，这个标示必须是命令 array startsearch返回的搜索标示符。返回一个空字符串。

array exists arrayName

如果 arrayName是一个数组变量就返回 1，如果没有这个变量或者是非数组变量就返回 0。

array get arrayName ?pattern?

返回一个列表，列表中的元素是成对的，交替的出现索引和对应数组值，如果不指定 pattern，所有数组的元素都回返回，如果指定了 pattern，只有匹配 pattern（与 string match匹配风格相同）的数组元素返回。如果 arrayName不是一个数组变量的名字或者没有包含任何元素就返回一个空列表。

array names arrayName ?mode? ?pattern?

返回一个匹配 pattern的数组元素索引的列表，mode可以是 -exact、 -glob或 -regexp中的一个，指定了匹配的风格，如果不指定 mode，默认为 -glob。如果需要了解详细的匹配风格请参考 string match和 regexp。如果不指定 pattern则返回数组中所有的索引，如果 arrayName不是一个数组变量的名字或者没有包含任何元素就返回一个空列表。

array nextelement arrayName searchId

返回 arrayName数组中的下一个元素索引，如果数组中所有的元素都搜索到了就返回空字符串， searchId指出了需要终结的数组搜索标示，这个标示必须是命令 array startsearch返回的搜索标示。警告：如果数组中有添加和删除元素的操作，那么所有的搜索都回自动结束，就像是调用了 array donesearch，这将会导致 array nextelement操作失败。

array set arrayName list

设置一个或多个数组元素， list必须是像 array get返回值风格的列表，第奇数个列表元素被认为是 arrayName的一个元素索引，紧接着的第偶数个列表元素就被当作前一个元素的数组中的值，如果变量 arrayName不存在或者为空，就创建一个空数组 arrayName。

array size arrayName

返回一个十进制的字符串数值来指出数组中元素的数量，如果 arrayName不是一个数组的名字就返回 0。

array startsearch arrayName

这个命令开始在 arrayName数组中进行一个元素一个元素的搜索， array nextelement命令返回下一元素的索引，当搜索完毕， array donesearch命令必须调用，返回值是一个搜索标示符，这个搜索表示符可以在 array nextelement和 array donesearch中使用来标示操作的搜索，通过使用搜索标示符允许对一个数组同时进行不同的搜索。目前，普遍使用的方式是使用 array get和 array names与 foreach一起使用来遍历数组中的每一个元素。具体请参考下面的示例。

array statistics arrayName

返回数组中元素在哈希表的分配方式的统计，这个命令包含表格中条目数，buckets数目和buckets的利用情况。

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