TCL语言笔记:TCL中的数组
一、介绍
Tcl 中的数组和其他高级语言的数组有些不同:Tcl 数组元素的索引,或称键值,可以是任意的字符串,而且其本身没有所谓多维数组的概念。数组的存取速度要比列表有优势,数组在内部使用散列表来存储,每个元素存取开销几乎相同,而列表的存取数据花非时间与其长度成正比。
二、数组的定义与格式
数组索引是由圆括号()来指定的,每个数组元素变量名的格式是“数组名(索引值)”。数组
元素使用 set 命令来定义和赋值:
[语法]:set arrName(index) value
也可以用 array 命令来定义一个数组:
[语法]:array set arrName { index1 value1 index2 value2 ...}
这个命令在定义数组的同时可以定义其元素和元素值。需要注意元素索引(index-n)与元素值(valun-n)要成对输入,否则会出错。用命令 array set arrName “”可以定义一个空数组。用普通变量值的获取方法——替换操作来获取数组元素值:
[语法]:set val $arrName(index)
数组元素索引也支持替换操作,包括变量和命令替换,如:
[语法]: set val $arrName($index)
set val $arrName([expr $index + 1])
Tcl 数组索引的值不象其他高级语言如 C 语言那样,要求一定是整数。Tcl 允许索引值为包括数字字符在内的所有合法字符组成的字符串。
array set arr1 "" ;#定义了一个空数组
set array01(5) "Hello World"
结果=> Hello World puts $array01(5)
结果=>Hello World set array01(Hello) World
结果=> World puts $array01(Hello)
结果=> World array names array01 ;#array names 命令显示数组元素名
结果=> Hello 5 array set arr2 {1 a 2 b 3 c 4 d}
array names arr2
结果=> 4 1 2 3 parray arr2 ;# 输出数组全部内容
结果=>
arr2(1) = a
arr2(2) = b
arr2(3) = c
arr2(4) = d
三、多维数组
在有些时候,可能需要象 C 语言这样:
int arr[][] arr[][] =
来定义一个多维数组来处理数据。Tcl 并没有直接支持这种数组的格式,使用者自己可以定
义所谓的多维数组,如:
set arr(,) set arr(,) parray arr 结果=> arr(,) =
arr(,) =
由于 Tcl 数组索引的灵活性,使用时要小心,否则可能得不到预期的结果,如忘记了上面索
引的逗号,就成了:
set arr() parray arr 结果=> arr(,) = 100 arr(,) =
四、数组操作指令
命令格式 |
说明 |
array exists arr |
判断 arr 是否为数组变量,是返回 1 |
array get arr ?pattern? |
返回一个包含交替出现索引、元素值的列表。pattern 选择匹配索引。如果不指定 pattern,返回所有的元素索引和值。 |
array names arr ?pattern? |
返回索引 |
array set arr list |
初始化数组 |
array size arr |
数组大小 |
array startsearch arr |
返回用于 arr 进行搜索的搜索标记 |
array nextelement arr index |
返回下一个元素值,如果已在尾部的话,返回空串 |
array donesearch arr index |
结束有 index 标识的搜索 |
parray arr |
打印出 arr 的所有元素变量名和元素值 |
1.array get 命令
array get 命令提取数组索引、元素值对并将这些值对组织成一个列表。而 array set 命令 则将一个列表(数据要成对)转换成一个数组。例
array set arr [list a AAA b BBB c CCC d DDD]
array size arr ;#数组元素个数
结果=> parray arr
结果=> arr(a) = AAA arr(b) = BBB arr(c) = CCC arr(d) = DDD set l1 [array get arr]
结果=> d DDD a AAA b BBB c CCC
2.array names命令
array names 返回所有元素索引名与模式 pattern 匹配的元素索引名列表。模式 pattern 和 string match 的模式格式相同。如果 pattern 没有指定,则返回所有数组元素索引名列表。
array set a [list "School,BUPT" "BUPT" "School,NJU" "NJU" "School,NJUA" "NJUA"] % parray a
结果=> a(School,BUPT) = BUPT a(School,NJU) = NJU a(School,NJUA) = NJUA array names a "School,*"
结果=>School,NJU School,NJUA School,BUPT array names a "School,N*"
结果=>School,NJU School,NJUA array names a
结果=>School,NJU School,NJUA School,BUPT
array names 命令
TCL语言笔记:TCL中的数组的更多相关文章
- TCL语言笔记:TCL基础语法
一.什么是TCL Tcl 全称是 Tool command Language.它是一个基于字符串的命令语言,基础结构和语法非常简单,易于学习和掌握. Tcl 语言是一个解释性语言,所谓解释性是指不象其 ...
- Tcl语言笔记之一
1,一个TCL脚本可以包含一个或多个命令.命令之间必须用换行符或分号隔开 2,置换 substitution %set y x+100 // ...
- php学习笔记7--php中的数组
php中的数组 1.数组的定义:显式方式:$arr = array(1,2,3,4,5); $arr1 = array('name'=>'dqrcsc','age'=>'24');隐式方式 ...
- R语言笔记1--向量、数组、矩阵、数据框、列表
注释:R语言是区分大小写的 1.向量 R语言中可以将各种向量赋值为一个变量,这种赋值操作符就是等号“=”,也可以使用“<-”. 1)产生向量 (1)函数c() 例如:x1=c(2,4,6,8,0 ...
- TCL语言笔记:TCL中的控制结构命令
一.引言 控制结构允许程序根据不同的状态.条件和参数来选择不同的处理和执行路径,从而使代码具有更强的灵活性.健壮性和可读性. Tcl 提供了 if.if/else.if/elseif.foreach. ...
- TCL语言笔记:TCL中的数学函数
一.TCL数学函数列表 函数名 说明 举例 abs(arg) 取绝对值 set a –10 ; #a=-10 set a [expr abs($a)]; # a=10 acos(arg) 反余弦 s ...
- TCL语言笔记:TCL中的列表操作
一.介绍 列表则是具有特殊解释的字符串.Tcl 中的列表操作和其它 Tcl 命令一样具有相同的结构.列表可应用在诸如 foreach 这样的以列表为变元的循环命令中,也应于构建 eval 命令的延迟命 ...
- TCL语言笔记:TCL中的String命令
一.介绍 字符串是 Tcl 中的基本数据类型,所以有大量的字符串操作命令.一个比较重要的问题就是模式匹配,通过模式匹配将字符串与指定的模式(格式)相匹配来进行字符串的比较.搜索等操作. 二.strin ...
- Tcl语言笔记之二
1,表达式 1.1 操作数 TCL表达式的操作数通常是整数或实数.整数一般是十进制的, 但如果整数的第一个字符是0(zero),那么TCL将把这个整数看作八进制的,如果前两个字符是0x则这个整数被看作 ...
随机推荐
- Cassandra1.2文档学习解读计划——为自己鼓劲
最近想深入研究一下Cassandra,而Cassandra没有中文文档,仅有的一些参考书都是0.7/0.6版本的.因此有个计划,一边学习文档(地址:http://www.datastax.com/do ...
- 【Delphi】最小化事件捕捉
添加一个ApplicationEvents组件在窗体,然后处理其OnMinimize事件和OnRestore事件即可.
- tomcat6.0 数据库连接池配置问题
tomcat6.0 数据库连接池配置问题: 连接池配好后,启动tomat后,输入项目系统的登录名和密码,报 Cannot create JDBC driver of class '' for conn ...
- Delphi XE5教程3:实例程序
内容源自Delphi XE5 UPDATE 2官方帮助<Delphi Reference>,本人水平有限,欢迎各位高人修正相关错误! 也欢迎各位加入到Delphi学习资料汉化中来,有兴趣者 ...
- hibernate4 使用及 新特性
hibernate4.x已经在官网出现一段时间了.下载地址: http://hibernate.org/orm/downloads/ 使用hibernate4所需要的jar包 在lib\require ...
- 11g RAC R2 之Linux DNS 配置
在动手配置前,最好先了解下DNS的理论,以免犯不必要的错误.这都是被坑后的觉悟 -_-!!! Oracle 11g RAC 集群中引入了SCAN(SingleClientAccessName)的概念, ...
- wxPython + Boa 练习程序
最近需要做点支持linux的跨平台gui,网上查到了wxPython及Boa,感觉不错,照着Boa文档做做练习. 代码: App: #!/usr/bin/env python #Boa:App:Boa ...
- 1103. Integer Factorization (30)
The K-P factorization of a positive integer N is to write N as the sum of the P-th power of K positi ...
- CentOS 6.2编译安装Nginx1.2.0+MySQL5.5.25+PHP5.3.13+博客系统WordPress3.3.2
说明: 操作系统:CentOS 6.2 32位 系统安装教程:CentOS 6.2安装(超级详细图解教程): http://www.osyunwei.com/archives/1537.html 准备 ...
- layoutSubviews -- setNeedsLayout -- layoutIfNeeded -- 区别
-layoutSubviews方法:这个方法,默认没有做任何事情,需要子类进行重写-setNeedsLayout方法: 标记为需要重新布局,异步调用layoutIfNeeded刷新布局,不立即刷新,但 ...