数组是一组使用索引对应元素的排列方式。常规数组的语法如下所示。

set ArrayName(Index) value

用于创建简单数组的例子,如下所示。

#!/usr/bin/tclsh

set languages() Tcl
set languages() "C Language"
puts $languages()
puts $languages()

当上述代码被执行时,它会产生以下结果。

Tcl
C Language

数组大小

用于计算数组大小的语法,如下所示。

[array size variablename]

用于打印数组的大小的示例如下所示。

#!/usr/bin/tclsh

set languages() Tcl
set languages() "C Language"
puts [array size languages]

当上述代码被执行时,它会产生以下结果。

2

数组迭代

虽然数组索引可以是非连续的,像索引1,然后索引10等指定的值。但是如果它们是连续的,我们可以用数组迭代访问数组的元素。一个简单的数组迭代的打印元素,如下所示。

#!/usr/bin/tclsh

set languages() Tcl
set languages() "C Language"
for { set index } { $index < [array size languages] } { incr index } {
puts "languages($index) : $languages($index)"
}

当上述代码被执行时,它会产生以下结果。

languages() : Tcl
languages() : C Language

关联数组

在TCL,所有数组本质是相关联的。数组存储并没有任何具体的顺序进行检索。关联数组使用索引但不一定都是数字。一个简单的例子,关联数组与非数字索引如下所示。

#!/usr/bin/tclsh

set personA(Name) "Dave"
set personA(Age)
puts $personA(Name)
puts $personA(Age)

当上述代码被执行时,它会产生以下结果。

Dave

数组的索引

用于检索数组索引的语法如下所示。

[array names variablename]

用于打印数组的大小的示例如下所示。

#!/usr/bin/tclsh

set personA(Name) "Dave"
set personA(Age)
puts [array names personA]

当上述代码被执行时,它会产生以下结果。

Age Name

关联数组迭代

可以使用数组的索引来遍历数组。如下例子所示。

#!/usr/bin/tclsh

set personA(Name) "Dave"
set personA(Age)
foreach index [array names personA] {
puts "personA($index): $personA($index)"
}

当上述代码被执行时,它会产生以下结果。

personA(Age):
personA(Name): Dave

TCL数组的更多相关文章

  1. TCL语言笔记:TCL中的数组

    一.介绍 Tcl 中的数组和其他高级语言的数组有些不同:Tcl 数组元素的索引,或称键值,可以是任意的字符串,而且其本身没有所谓多维数组的概念.数组的存取速度要比列表有优势,数组在内部使用散列表来存储 ...

  2. tcl之变量-unset 简单变量和数组

  3. tcl之变量-数组array

  4. Tcl internal variables

    Tcl internal variables eryar@163.com 在Tcl中内置了一些变量,并赋予了一定的功能.内置变量列表如下: 变量名称 功能描述 argc 指命令行参数的个数. argv ...

  5. TCL校园招聘——软件开发工程师(java) 只招5个。。。

    简介 TCL集团股份有限公司创立于1981年,是全球性规模经营的消费类电子企业集团之一,广州2010年亚运会合作伙伴,总部位于广东省惠州市仲恺高新区TCL科技大厦.旗下拥有TCL集团.TCL多媒体科技 ...

  6. TCL/Expect交互式自动化测试概要 - - ITeye技术网站

    TCL/Expect交互式自动化测试概要 - - ITeye技术网站 expect是一种基于TCL,能与交互式程序进行"可程序化"会话的脚本语言,是一种可以提供"分支和嵌 ...

  7. php文件格式数组

    一个文件格式对应的数组$mime_types = array('gif' => 'image/gif','jpg' => 'image/jpeg','jpeg' => 'image/ ...

  8. Tcl学习之--语法|变量

    [语法|变量] l 脚本.命令和单词 Tcl提供了大约100条命令.Tk提供了另外几十条,脚本包括一条或多条,通过换行符或分号分隔开. set a 12 set b 23 也能够写成一行: set a ...

  9. Tcl语言笔记之一

    1,一个TCL脚本可以包含一个或多个命令.命令之间必须用换行符或分号隔开 2,置换 substitution %set y x+100                               // ...

随机推荐

  1. BZOJ 3676 【APIO2014】 回文串

    题目链接:回文串 我终于也会回文自动机辣! 其实吗……我觉得回文自动机(听说这玩意儿叫\(PAM\))还是比较\(simple\)的……至少比\(SAM\)友善多了…… 所谓回文自动机,每个节点就代表 ...

  2. ssh connection refused

    执行sudo apt-get install openssh-server命令安装SSH服务

  3. a标签 在新页面打开

    <a href="https://www.baidu.com/" target="_blank">下载</a>

  4. Mac adb 安装

    一.下载Android studio https://developer.android.google.cn/studio/ 二.安装 首先移动 弹出下面弹框,直接点击OK 提示无法访问Android ...

  5. Intel Omin-Path Architecture 搭建调优与测试

    OPA在Centos上的搭建 1. 首先确认Omni-Path Host Fabric Interfaces (HFIs) # yum install –y pciutils # lspci -vv ...

  6. 递归--练习11--noi9273 PKU2506Tiling

    递归--练习11--noi9273 PKU2506Tiling 一.心得 25 a[i]%=10;(高精度时) 26 这里错了,花了好久改好 27 28 29 int* f(int n){ 30 if ...

  7. WPF特效和例子

    https://www.cnblogs.com/AaronYang/p/4710428.html

  8. Java开源-astar:A 星算法

    astar A星算法Java实现 一.适用场景 在一张地图中,绘制从起点移动到终点的最优路径,地图中会有障碍物,必须绕开障碍物. 二.算法思路 1. 回溯法得到路径 (如果有路径)采用“结点与结点的父 ...

  9. cocos creator开发微信小游戏记录

    先用cocoscreator实现游戏逻辑 在cocoscreator项目里可以调用微信小游戏api 在cocos里面判断小游戏的运行环境 if (cc.sys.platform === cc.sys. ...

  10. UVA 11624 Fire! bfs 难度:0

    http://uva.onlinejudge.org/index.php?option=com_onlinejudge&Itemid=8&page=show_problem&p ...