TCL脚本语言-12-程序库和程序包
vhdl程序的基本结构vhdl程序一般由5个部分组成
块语句
块标号:BLOCK[保护表达式] [类属子句;] [端口子句;] [块说明部分;] BEGIN
<块语句部分;>
; END BLOCK 块标号
类属子句用于参数的定义；端口子句用于信号的定义； 块说明部分对该块要用到的信号、常数、元件和子程序 等进行说明；块语句部分对该块的功能进行描述，块语 句部分的语句是并行执行的，和书写顺序无关。
缺省说明: library std; use std.standard.all;
常用库及其程序包
IEEE: IEEE认可的标准库 std_logic_1164:定义了 std_logic, std_logic_vector, std_ulogic, std_ulogic_vector 等数据类型
VHDL 程序的基本结构
设计实体
实体说明
构造体
设计实体的组成
实体说明
Entity <实体名> is
[类属说明;] [端口说明;]
[实体说明部分;] [实体语句部分;] End [entity]<实体名>;
最简单的例： entity nothing is end nothing;
实体说明--类属说明
类属为设计实体和外部环境通讯的静态通信提供通道。可以定
实体说明--实体语句部分
是设计实体接口的共同部分。只能由并行断 言语句、并行过程调用语句、被动进程语 句组成，且不能在语句中给信号赋值。
设计实体
实体说明
构造体
设计实体的组成
构造体
architecture <构造体名> of <实体名> is
[构造体说明语句;]
Begin
<功能描述语句;>
tcl脚本语言介绍
中的方括号部分，产生一条新命令
set a "hello" //"hello" 为 set b "hello" 的返
//回值
最终的结果是b="hello" a="hello"
当命令的一个子域以方括号开始以方括号结束，表示要进行一个命令子替换。并执行该子命令，用其结果来替换原命令中的方括号部分。方括号中的部分都被视为Tcl命令。
Variables: scalars and arrays 变量：标量和向量（即数组）
向量就是数组，而标量是没有下表的变量。
我们用C来类比：
int i； // i 是标量
int j[10]； // j 是向量
变量不需要定义，使用的时候会自动的被创建。Tcl支持两种
变量：标量和向量
举个例子来说明吧，
Tcl是一种很通用的脚本语言，它几乎在所有的平台上都可以释运行，其强大的功能和简单精妙的语法会使你感到由衷的喜悦，这片文章对 Tcl有很好的描述和说明。如果你看起来很吃力，那是因为 Tcl与一般的语言有一些不同之处，刚开始可能有一些不理解，但很快就会掌握的。请坚持一下,我能坚持写完，你至少也应该坚持读一遍吧！
这里有一个初学者不注意的地方，上述的定义一定要写成那样子。而不能向下面那样写：
proc pf {str}
{
puts $str
}
因为proc实际上也只不过是一条命令，是一换行符或分号来结束的，用集群参数来传递函数体。proc的定义如下：
proc name args tclcommand
TCL编程高级教程讲解
为解决上述问题和进一步提高TCL 的扩展能力，较新版 本的TCL提供了更好的程序包机制。
脚本库和程序包
• 程序包
Q:什么是程序包？ A:由于脚本库的局限性，TCL提供了更好的
TCL已经有一个这样的集合，就是我们指的 全局命名空间。全局命名空间将所有的全局变量 和命令放在一起。 命名空间也叫做名称空间、名 称域、命名域 等。
命名空间
• 命名空间创建:
用 namespace eval 命令创建一个新的命名空间
• 命名空间查询
如果要在命名空间XXX之外查询命名空间内部变 量的值xxx，可以用如下语句： set :: XXX::xxx
命名空间
• 输入命令和输出命令
命名空间常常用来描述库，需要频繁使用命名空间前缀， 用输入命令和输出命令可以省略命令前面的命名空间前缀。
输入命令： namespace import 输出命令： namespace export
命名空间
• 输入命令
➢ namespace import 命令只输入命名空间中用namespace export命令输 出的命令
package 机制来实现对TCL的共用和扩展，也就 是程序包 。
脚本库和程序包
• 创建TCL程序包:
把你想包含在某个包中的所有自定义过程 放到一个TCL脚本文件中，然后在文件的开头 使用 package provide 命令指明这个包的名字和 版本即可。
脚本库和程序包
– 如果一个函数在几个脚本库中都有定义的话，TCL会按照搜索顺序自动加 载在 auto_path 中位置靠前的那个库。因此，如果加载的脚本库要先被搜 索的话，可以使用 linsert 命令将其插入到 auto_path 中靠前的位置中， 例如： % set auto_path [linsert $auto_path 0 c:/tcllib/lib1]
TCL语言.
TCL语言Tcl(最早称为“工具命令语言”"Tool Command Language", 但是目前已经不是这个含义，不过我们仍然称呼它为TCL)是一种脚本语言。
由John Ousterhout创建。
TCL很好学，功能很强大。
TCL经常被用于快速原型开发,脚本编程，GUI和测试等方面。
TCL念作“踢叩” "tickle". Tcl的特性包括:* 任何东西都是一条命令，包括语法结构(for, if等)。
* 任何事物都可以重新定义和重载。
* 所有的数据类型都可以看作字符串。
* 语法规则相当简单* 提供事件驱动给Socket和文件。
基于时间或者用户定义的事件也可以。
* 动态的域定义。
* 很容易用C, C++,或者Java扩展。
* 解释语言，代码能够动态的改变。
* 完全的Unicode支持。
* 平台无关。
Win32, UNIX, Mac上都可以跑。
* 和Windows的GUI紧密集成。
Tk* 代码紧凑，易于维护。
TCL本身不提供面向对象的支持。
但是语言本身很容易扩展到支持面向对象。
许多C语言扩展都提供面向对象能力，包括XOTcl, Incr Tcl 等。
另外SNIT扩展本身就是用TCL写的。
使用最广泛的TCL扩展是TK。
TK提供了各种OS平台下的图形用户界面GUI。
连强大的Python语言都不单独提供自己的GUI，而是提供接口适配到TK上。
另一个流行的扩展包是Expect. Expect提供了通过终端自动执行命令的能力，例如(pass wd, ftp, telnet等命令驱动的外壳).下面是TCL程序的例子：#!/bin/sh# next line restarts using tclsh in path \exec tclsh ${1+"$@"}# echo server that can handle multiple# simultaneous connections.proc newConnection { sock addr port } {# client connections will be handled in# line-buffered, non-blocking modefconfigure $sock -blocking no -buffering line# call handleData when socket is readablefileevent $sock readable [ list handleData $sock ]}proc handleData {puts $sock [ gets $sock ]if { [ eof $sock ] } {close $sock}}# handle all connections to port given# as argument when server was invoked# by calling newConnectionset port [ lindex $argv 0 ]socket -server newConnection $port# enter the event loop by waiting# on a dummy variable that is otherwise# unused.vwait forever另外一个TK的例子(来自 A simple A/D clock) 它使用了定时器时间，3行就显示了一个时钟。
TCL语言
Generated by Foxit PDF Creator © Foxit Software For evaluation only.
TCL 语言
Tcl (最早称为“工具命令语言”"Tool Command Language", 但是目前已经不是 这个含义，不过我们仍然称呼它为 TCL)是一种 脚本语言。 由 John Ousterhout 创 建。 TCL 很好学，功能很强大。TCL 经常被用于 快速原型开发,脚本编程， GUI 和测试等方面。TCL 念作“踢叩” "tickle". Tcl 的特性包括:
Output: If I was 2 inches taller, I would be 6.16667 feet tall 命令流控制 Tcl 有判断流转(if-else; switch)和循环控制(while; for; foreach) Example 4.1: set my_planet "earth" if {$my_planet == "earth"} { puts "I feel right at home." } elseif {$my_planet == "venus"} { puts "This is not my home." } else { puts "I am neither from Earth, nor from Venus." } set temp 95 if {$temp < 80} { puts "It's a little chilly." } else { puts "Warm enough for me." } Output: I feel right at home. Warm enough for me. Example 4.2: set num_legs 4 switch $num_legs { 2 {puts "It could be a human."} 4 {puts "It could be a cow."} 6 {puts "It could be an ant."} 8 {puts "It could be a spider."} default {puts "It could be anything."} } Output: It could be a cow. Example 4.3: for {set i 0} {$i < 10} {incr i 1} { puts "In the for loop, and i == $i" }
tcl中调用python
tcl中调用pythonTcl（Tool Command Language）是一种脚本语言，常用于快速开发应用程序和自动化任务。
Python是一种功能强大的编程语言，拥有丰富的第三方库和模块。
将两者结合使用，可以充分发挥各自的优点，实现更复杂和灵活的功能。
在Tcl中调用Python有多种方法，下面将介绍其中两种常用的方法。
方法一：使用exec命令Tcl中的exec命令可以执行外部命令，包括Python脚本。
通过在exec命令中指定Python解释器和脚本文件的路径，可以在Tcl中调用Python。
```tclset result [exec python3 script.py arg1 arg2]```上述代码中，exec命令执行了Python脚本script.py，并传递了两个参数arg1和arg2。
脚本的输出结果保存在变量result中。
方法二：使用Tcl的Python扩展Tcl的Python扩展是一个用于在Tcl中调用Python的工具包。
它提供了一组Tcl命令，可以直接调用Python函数和对象。
需要安装Tcl的Python扩展。
可以通过pip命令进行安装：```shellpip install tclpy```安装完成后，在Tcl脚本中引入Tcl的Python扩展：```tclpackage require Tclpy```接下来，就可以使用Tcl的Python扩展提供的命令来调用Python 函数和对象了。
例如，调用Python的math模块计算正弦函数：```tclset sin [python::call math.sin 0.5]```上述代码中，python::call命令用于调用Python的math.sin函数，并传递参数0.5。
函数的返回值保存在变量sin中。
除了上述两种方法，还可以使用其他的第三方库和模块来实现Tcl 和Python的交互。
例如，使用Tkinter库可以在Tcl界面中嵌入Python GUI组件；使用pyTcl库可以实现更高级的Tcl和Python 集成。
TCL脚本技术及用法
TCL内建命令
TCL还提供三种特殊的参数形式： 首先，你可以定义一个没有参数的过程。 % proc add {} { expr 2+3} 其次，可以定义具有缺省参数值的过程。 % proc add {val1 {val2 2} {val3 3}} { % expr $val1+$val2+$val3 %} 另外，TCL的过程定义还支持可变个数的参数，如果 过程的最后一个参数是args, 那么就表示这个过程支持 可变个数的参数调用。
引言
TCL提供了C语言的调用接口，可以很容易地嵌入到C 程序中；由于TCL提供了与C的接口函数，所以可以 在C编写的应用中调用TCL的库函数，执行TCL的命令 或脚本。具体的工作有： ①创建TCL的解释器; ②执行TCL的命令或脚本; ③对返回代码进行处理; ④撤消TCL的解释器。
引言
基本的C程序结构如下： #include <stdio.h> #include <tcl.h> main() { Tcl_Interp *ip; // 定义解释器 int code; ip=Tcl_CreateInterp(); // 创建该解释器 code=Tcl_EvalFile(ip, "test.tcl"); // 执行文件“test.tcl” if(code!=TCL_OK) exit(1); // 是否成功 else exit(0); }
TCL语法
置换
TCL解释器在分析命令时把所有的命令参数当做字符 串对待，置换的作用是获取命令参数所对应的值，而 非命令参数所代表的字符串。 置换包括变量置换、命令置换和反斜杠置换。变量置 换传递的是变量的值，命令置换传递的是命令参数的 计算结果，反斜杠置换主要用于在单词符号中插入诸 如换行符、空格、[、$等被TCL解释器当作特殊符号 对待的字符。置换可以嵌套。
TCL培训教程(全)(2024)
面向连接、可靠传输、基于字节流、全双工通信。
2024/1/29
TCP编程应用示例
通过TCL套接字编程实现TCP服务端和客户端的通信，包括建立连 接、发送和接收数据等过程。
37
UDP协议通信原理及实现方式
UDP协议概述
UDP（用户数据报协议）是一种无连接的传输层协议，提供简单的不可靠数据传输服务。
2024/1/29
6
TCL应用场景及案例分析
应用场景
TCL被广泛应用于嵌入式系统、自动化测 试、网络编程、图形界面开发等领域。 它可以作为嵌入式系统的脚本语言，用 于实现设备的自动化控制和数据处理； 也可以作为自动化测试的脚本语言，用 于编写测试用例和自动化测试脚本；还 可以用于网络编程和图形界面开发等场 景。
UDP协议特点
无连接、不可靠传输、基于数据报、尽最大努力交付。
2024/1/29
UDP编程应用示例
通过TCL套接字编程实现UDP通信，包括发送和接收数据报的过程。需要注意的是，由于UDP是无连接的协 议，因此需要在应用程序中实现数据报的丢失重传、乱序重排等机制。
38
07 TCL图形界面开发
2024/1/29
22
局部变量与全局变量
set localVar "I'm local"
global globalVar
set globalVar "I'm global"
2024/1/29
23
局部变量与全局变量
puts $localVar puts $globalVar
2024/1/29
24
局部变量与全局变量
返回值处理
TCL中过程的返回值通过`return`关键 字返回。调用过程时，可以使用`set` 命令将返回值保存到变量中。
TCL教程(中文)(2024)
B
C
D
脚本执行过程
详细剖析TCL脚本的执行过程，包括命令 解析、变量替换、执行结果输出等步骤。
控制结构
介绍TCL中的条件判断（if-else）、循环 （foreach、while）等控制结构，以及如 何使用它们来编写逻辑清晰的脚本。
2024/1/29
20
复杂脚本优化技巧分享
代码重用与模块化
讲解如何将重复的代码片段抽象成函数或过 程，实现代码重用和模块化，提高脚本的可 维护性和可读性。
比较运算符
TCL支持比较运算符，如等于(`==`)、不等于(`!=`)、大于 (`>`)、小于(`<`)等。比较运算的结果为布尔值，即真或假 。
逻辑运算符
TCL支持逻辑运算符，如逻辑与(`&&`)、逻辑或(`||`)、逻 辑非(`!`)等。逻辑运算用于组合多个条件，并根据条件的 真假返回相应的结果。
TCL教程(中文)
2024/1/29
1
目录
2024/1/29
• TCL基础知识 • TCL基本语法 • TCL高级特性 • TCL扩展功能 • TCL实例分析 • TCL学习资源推荐
2
TCL基础知识
01
2024/1/29
3
TCL概述
TCL是一种脚本语言
TCL代表“工具命令语言”，是一 种广泛用于嵌入式系统和应用程 序的脚本语言。
I/O流处理
TCL支持I/O流的概念，可以通过管道命令实现不同命令之间的数据传 递和处理。
2024/1/29
14
TCL扩展功能
04
2024/1/29
15
Tk图形界面开发库介绍
Tk概述
Tk是TCL的图形用户界面工具包， 提供了一套丰富的图形控件和布局 管理器，用于创建跨平台的GUI应 用程序。
TCL脚本语言-10-名字空间
名字空间是可以嵌套的，一个名字空间可以包含多个孩子名字空间，例如上面的代码就 定义了嵌套的名字空间 Operator，并且在其中定义了过程 Print。
variable m_count
incr m_count $m
}
}
#名字空间已经 Counter 存在，继续在 Counter 中执行如下代码 namespace eval Counter {
#定义过程 GetCounter，返回得到计数器的实际值 proc GetCounter {} {
variable m_count return $m_count } #定义子名字空间 Operator，里面定义了一个函数 Print namespace eval Operator { proc Print {} {
作者：雷雨后
Email: leiyuhou010@
TCL、Python 和软件测试自动化
117
执行的时候 Counter 还不存在，所以就创建了该名字空间。紧接着后面的一个 namespace eval 命令，用来在名字空间 Counter 中创建过程 GetCounter。再往下就是测试代码，用来检查一 下这个计数器名字空间是否正常工作。最后的打印结果是“10”
为了解决这些问题，名字空间应运而生。名字空间 namespace，顾名思义，可以理解成 有名字的空间，它包含了那些属于该空间的变量名和过程名。不同名字空间里面，即使包含 同名的命令，TCL 解释器也能够区分它们，看待成不同的命令。
TCL语言
TCL语言
TCL（Tool Command Language）是一种通用的脚本语言，最初设计用于自动
化软件测试。
它具有简单易学的语法结构和强大的扩展能力，可以在多个操作系统上运行。
TCL语言主要用于编写脚本来控制和配置软件应用程序。
TCL的特点
TCL语言具有以下特点：
•易学易用：TCL语法简单清晰，入门门槛低，适合初学者快速上手。
•跨平台：TCL脚本可以在多个操作系统上运行，包括Windows、Linux、Unix等。
•模块化：TCL支持模块化开发，可以将功能分割成多个模块，提高代码可复用性。
•动态类型：TCL是一种动态类型语言，变量的类型在运行时确定，灵活性较高。
•强大的扩展能力：通过TCL的扩展包，可以方便地扩展功能，适应多样化的需求。
TCL的应用领域
TCL语言在以下领域有着广泛的应用：
•自动化测试：TCL最初设计用于自动化软件测试，可以通过编写TCL 脚本来进行自动化测试。
•网站开发：TCL可以用于构建Web应用程序，通过TCL的Web扩展包可以实现服务器端的动态网页生成。
•网络编程：TCL提供了丰富的网络编程库，可以用于开发网络应用程序。
•嵌入式开发：TCL语言可以作为嵌入式系统的脚本语言，用于控制和配置嵌入式设备。
•图形界面开发：TCL/TK是一个常用的图形用户界面开发工具包，可以用来创建GUI应用程序。
TCL语言示例
下面是一个简单的TCL脚本示例，展示了如何输出。
Tcl语言基础教程
2、置换（Substitution)
set x 10
set y 100 + x
上面命令执行后，y的值是“100 + x”而不是我们期望的110。这是因为Tcl解释器在分析命令时，把所有的命令参数都当作
字符串看待，所以x 被看作了字符串“100 + x”的一部分。如果我们想使用x的值'10' ，就必须告诉Tcl解释器：我们在这里期望的
如果regexp命令后面有参数matchVar和subMatchVar，则所有的参数被当作变量名，如果变量不存在，就会被生成。
regexp把匹配整个正规表达式的子字符串赋给第一个变量，匹配正规表达式的最左边的子表达式的子字符串赋给第二个变
量，依次类推，例如：
regexp { ([0-9]+) *([a-z]+)} " there is 100 apples" total num word 1
都将成为普通字符，失去其特殊意义，Tcl解释器不会对其作特殊处理。
二、Tcl变量数据类型
Tcl只支持一种数据类型：字符串（string）。所有的命令，命令的所有的参数，命令的结果，所有的变量都是字符串。请牢记
这一点，所有的东西都是字符串。（然而字符串的实际解释是依赖于其所处上下文。它有三种形式：命令, 表达式和表）。
符串，然后把结果存到变量varName中,注意除了空格和TAB键之外，string 和formatsting中的字符和'%'必须匹配。例如：
scan "some 26 34" "some %d %d" a b
TCL脚本语言-12-程序库和程序包
和寻找这个未知命令；如果找到则执行它，返回结果； 5. 如果 auto_load 没有找到该命令的实现，那么就判断是否是处在交互模式下；如果
是交互模式： a) 并且没有定义全局变量 auto_noexec，那么就调用 auto_execok 命令来判断这个
1. 每一个 TCL 应用程序都应该有一个 init.tcl 文件，该文件会做一些初始化的工作， 这个文件都位于 info library 命令所返回的目录中。
2. unknown 命令就是在这个 init.tcl 文件中定义的。 例如我现在使用的 ActiveTcl，运行 info library 命令，返回解释器的库目录为：
auto_load：加载程序库
ቤተ መጻሕፍቲ ባይዱ
auto_load 命令是在 init.tcl 中定义，在解释器初始化的时候被创建。当解释器碰到了未 定义命令的时候，unknown 命令会被调用，在 unknown 中会调用 auto_load 命令来寻找这个
作者：雷雨后
Email: leiyuhou010@
TCL、Python 和软件测试自动化
143
未定义命令。弄清楚 auto_load 的执行机制，会让我们更加清楚 TCL 程序库（library）的工 作机制和自动加载的原理。
首先得介绍一下和 aoto_load 相关的两个全局变量： 1. auto_path：列表变量，其每一个元素是库文件所在的目录。这个变量在解释器初始
% info library C:/Tcl/lib/tcl8.4
在这个目录下存在文件 init.tcl，其中就定义了 unknown 命令。大家有兴趣可以直接看看 这个命令的源代码。
TCL语言及其文件的认识、理解和编辑
TCL语言及其文件的认识、理解和编辑欢迎大家指正和补充。
Tcl语法简介Tcl是用于工具命令语言的一个解释器。
它由作为基本命令解释器嵌入到工具(比如编辑器、调试器等)中的一个库包组成。
Tcl提供了(a)用于简单的文本命令语言的分析器，(b)一组内置的实用命令，和(c)一个C 接口，工具通过它用特定于工具的命令增加内置命令。
Tcl在与窗口组件库整合的时候特别有吸引力：它通过了提供变量、过程、表达式等机制增进了组件的可编程性；它允许用户编程组件的外观和动作二者；并且它在交互式程序之间提供一个简单但强力的通信机制作为一种脚本语言，Tcl具有简单的语法Tcl/Tk 的发明人John Ousterhout 教授在八十年代初，是伯克利大学的教授。
在其教学过程中，他发现在集成电路CAD 设计中，很多时间是花在编程建立测试环境上。
并且，环境一旦发生了变化，就要重新修改代码以适应。
这种费力而又低效的方法，迫使Ousterhout 教授力图寻找一种新的编程语言，它即要有好的代码可重用性，又要简单易学，这样就促成了Tcl (Tool Command Language) 语言的产生。
Tcl最初的构想的是希望把编程按照基于组件的方法(component approach)，即与其为单个的应用程序编写成百上千行的程序代码，不如寻找一个种方法将程序分割成一个个小的, 具备一定“完整”功能的，可重复使用的组件。
这些小的组件小到可以基本满足一些独立的应用程序的需求，其它部分可由这些小的组件功能基础上生成。
不同的组件有不同的功能，用于不同的目的。
并可为其它的应用程序所利用。
当然, 这种语言还要有良好的扩展性, 以便用户为其增添新的功能模块。
最后，需要用一种强的，灵活的“胶水”把这些组件“粘”合在一起, 使各个组件之间可互相“通信”，协同工作。
程序设计有如拼图游戏一样，这种设计思想与后来的Java 不谋而合。
终于在1988 年的春天, 这种强大灵活的胶水- Tcl语言被发明出来了。
Tcl语言参考
Tcl语言参考Tcl("Tool Command Language",即工具命令语言；Tcl念作"tickle"即“踢叩” )是一种简单易用易于扩展的嵌入式脚本语言, 主要用于发布命令给交互式程序（如文本编辑器、调试器），及完成自动化批处理工作。
Tcl语言不同于其他语言的最大的特点是：Tcl程序由Tcl命令序列组成，其每条语句都是一条指令。
由于其极易扩展的特性，Tcl有大量的用C/C++编写的扩展用于提供Tcl本身不具有的功能。
其中使用最广泛的扩展是TK,TK提供了各种OS平台下的图形用户界面GUI(连强大的Python语言都不单独提供自己的GUI，而是提供接口适配到TK上)。
另一个流行的扩展包是Expect，它提供了通过终端自动执行命令的能力，例如passwd, ftp, telnet等命令驱动的外壳。
一、Tcl程序基本结构1、基本语法Tcl的语法类似于shell：一条Tcl的命令串包含若干条命令，命令使用换行符或分号来隔开；而每一条命令包含若干个域(field)，域使用空白（空格或TAB）来隔开——第一个域是命令的名字，其它的域是该命令的参数。
Tcl解释器对一个命令的执行过程分为两步：分析阶段和执行阶段。
在分析阶段，Tcl 解释器运用规则识别出命令并把命令分成一个个独立的单词，同时进行必要的置换(substitution)；在执行阶段，Tcl 解释器会把第一个单词当作命令名，并查看这个命令是否有定义，如果有定义就激活这个命令对应的C/C++过程，并把所有后面的单词作为参数传递给该命令过程，让命令过程进行处理。
Tcl解释器既可以执行Tcl内建命令亦可执行用户自己通过C/C++函数实现的新建命令,在应用程序中可用函数Tcl_CreateCommand来完成命令的创建。
所有命令参数都被作为字符串来传递，命令自己会按其所需来解释参数。
另外关于Tcl的注释有一个特殊的要求：'＃'必须出现在Tcl解释器期望命令的第一个字符出现的地方，才被当作注释。
tcl脚本语言学习
4、llength 命令：
用于获得一个列表的元素个数。 set l "a 3 k"；llength $l； =>3
5、lindex 命令：
返回列表中指定位置的特定元素，它是从 0 开始计数。 set x { 1 4 5 7 8 0 9}；lindex $x 6； =>9 （1 表示第 0 个数，所以第 6 个 数为 9） 。
3、scan：
根据格式描述符来解析一个字符串并将对应值赋给后面的变量。 返回值是成 功转换的个数。 语法：scan string format var?var?..... %c 的作用与 format 的正好相反， 是将一个 ASCII 字符转换为对应的整数值。 与 format 的区别： format 是将多个目标变量转换成一个字符串， scan 是将一 个字符串分解为多个变量。 例如：set num [scan "abcABC" "%c%c " var1 var2] ；puts "$var1 $var2"； 输出：=> 97 98 注意：这里其实只是对 a、b 进行了转换，后面的 cABC 没有转换，要想转 换，只要多写几个%c，后面多定义几个变量就可以了。并且%c 的个数与变量的 个数要一一对应。
8、lsearch 命令：
在给定列表中搜索与匹配字符串匹配的元素，成功就返回正确的元素索引， 否则返回-1。 set l1 [list This is one list] ；set index [lsearch $l1 l*] ；=>3
9、lsort 命令：
lsort 命令实现对列表的排序。排序操作不影响原表，而是返回排序之后的 新表。 排序的方式有多种选择，可以通过-ascii、-dictionary 、–integer、-real 来指 定基本排序类型，然后使用-increasing、decreasing 指定排列方式，默认为-ascii、 -increasing 。要注意 ASCII 排序时使用字符编码；而 dictionary 排序方式整合 大小写，并将包含的数字以数值大小来处理。 set list "a Z z n100 n200 M p Hl hL m 1 20" ； lsort -ascii $list ； =>1 20 Hl M Z a hL m n100 n200 p z
tcl脚本语言中文详解
T C L用法祥述一TCL语法1 脚本、命令和单词符号一个TCL脚本可以包含一个或多个命令。
命令之间必须用换行符或分号隔开，下面的两个脚本都是合法的：set a 1set b 2或set a 1；set b 2TCL的每一个命令包含一个或几个单词，第一个单词代表命令名，另外的单词则是这个命令的参数，单词之间必须用空格或TAB键隔开。
TCL解释器对一个命令的求值过程分为两部分：分析和执行。
在分析阶段，TCL 解释器运用规则把命令分成一个个独立的单词，同时进行必要的置换(substitution)；在执行阶段，TCL 解释器会把第一个单词当作命令名，并查看这个命令是否有定义，如果有定义就激活这个命令对应的C/C++过程，并把所有的单词作为参数传递给该命令过程，让命令过程进行处理。
2 置换(substitution)注：在下面的所有章节的例子中，'％'为TCL的命令提示符，输入命令回车后，TCL会在接着的一行输出命令执行结果。
'//'后面是我自己加上的说明，不是例子的一部分。
TCL解释器在分析命令时，把所有的命令参数都当作字符串看待，例如：%set x 10 //定义变量x,并把x的值赋为1010%set y x+100 //y的值是x+100，而不是我们期望的110x+100上例的第二个命令中，x被看作字符串x+100的一部分，如果我们想使用x的值'10' ，就必须告诉TCL解释器：我们在这里期望的是变量x的值，而非字符'x'。
怎么告诉TCL解释器呢，这就要用到TCL语言中提供的置换功能。
TCL提供三种形式的置换：变量置换、命令置换和反斜杠置换。
每种置换都会导致一个或多个单词本身被其他的值所代替。
置换可以发生在包括命令名在内的每一个单词中，而且置换可以嵌套。
1) 变量置换(variable subtitution)变量置换由一个＄符号标记，变量置换会导致变量的值插入一个单词中。
TCL脚本语言1-32
7
return $result }
#使用 while 循环来实现阶乘 proc Factorial2 {n} {
set result 1 set i 1 while {$i<=$n} {
set result [expr $result*$i] incr i } return $result }
puts "10! = [Factorial1 10]" puts "5! = [Factorial2 5]"
% set PI 3.1415926535897932 3.1415926535897932 % expr "cos($PI/4)*2" 1.41421356237 % expr "sqrt(2)" 1.41421356237
;#创建变量 PI ;#计算得到 sqrt(2) ;#直接计算得到 sqrt(2)
% set sum $r+$i 100+200 % set sum [expr $r+$i] 300 %
;#企图计算 r 和 i 两个变量的和，但是事与愿违； ;#只有这样才行
看看上面的例子就明白了，第一种方法计算 sum，结果 sum 的值是字符串“100+200”。 只有通过第二种方式，使用 expr 命令来计算表达式$r+$i，sum 的值才是我们期望的 300。在 TCL 中，所有的数学计算都是通过 expr 命令来实现的。例如通过计算正弦来得到 2 的平方 根：
;#输出所有的下标
可以看到，TCL 中的数组和我们 C 语言中熟悉的数组完全不是一回事，倒是和 VBScript 中的对象 Dictionary 非常的类似。TCL 中没有多维数组的概念，但是后面我们会讲到如何使 用多维数组。
tcl脚本语言(下)
TCL脚本语言
❖ 文件访问 ❖ 错误和异常 ❖ 查询数组中的元素 ❖ Info命令 ❖ 历史记录
文件访问
❖ 基本文件输入输出命令 open命令 语法：open name ?access? 功能：open命令以access方式打开文件name。返回
式的所有文件的列表。其中switches可以取下面的值：-nocomplain ： 允许返回一个空串，没有-nocomplain时，如果结果是空的，就返回错误。 -- ：表示switches结束，即后面以‘-’开头的参数将不作为switches。 注意：1、glob 还允许模式中包含‘ 括在花括号中间以逗号分开的多种选 择’ ； 2、如果glob的模式以一斜线结束，那将只匹配目录名 。 3、如果glob返回的文件名列表为空，通常会产生一个错误。但是glob 的在样式参数之前的第一个参数是“-nocomplain”的话，这时即使结果 为空，glob也不会产生错误 。
果命令中有varName就把该行赋给它，并返回该行 的字符数（文件尾返回-1），如果没有varName参 数，返回文件的下一行作为命令结果（如果到了文 件尾，就返回空字符串）。
文件访问
❖ 基本文件输入输出命令 read命令 语法1：read ?-nonewline? fileId 功能：读并返回fileId标识的文件中所有剩下的字节。
文件访问
❖ 文件操作和获取文件信息 file命令
file是有许多选项的常用命令，可以用来进 行文件操作也可以检索文件信息。
文件访问
❖ file命令 file atime name :返回一个十进制的字符串，表示文件name最
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
auto_load：加载程序库
auto_load 命令是在 init.tcl 中定义，在解释器初始化的时候被创建。当解释器碰到了未 定义命令的时候，unknown 命令会被调用，在 unknown 中会调用 auto_load 命令来寻找这个
作者：雷雨后
Email: leiyuhou010@
1. 每一个 TCL 应用程序都应该有一个 init.tcl 文件，该文件会做一些初始化的工作， 这个文件都位于 info library 命令所返回的目录中。
2. unknown 命令就是在这个 init.tcl 文件中定义的。 例如我现在使用的 ActiveTcl，运行 info library 命令，返回解释器的库目录为：
source：TCL 中的#include
C/C++中使用库文件的方式，首先必须在源程序中#include 相关的头文件，编译通过后， 在链接（link）阶段与相关的库文件（.lib、.obj 等）连接。在 TCL 中则没有所谓头文件和库 文件，那么分散在其他多个文件的命令和程序，如何被我们的应用中加载引用呢？有一个命 令可以完成类似#include 的功能，这就是 source。其命令语法如下：
未知命令是否是 DOS 内部命令或者是某一个可执行程序。如果是，则执行它 们，并且返回执行结果。 b) 如果没有找到可执行命令文件，或者定义了 auto_noexec，那么就判断该未知 命令是否是“！！”、“!(.+)$”等这样的格式；如果是，那么就调用对应的历史 命令。 6. 如果不是交互模式，则抛出异常，退出 unknown。 上面是 unknown 命令的默认处理流程，我们可以自己重新编写这个命令，但是最好要 保留原来的功能。因为其处理机制非常重要，保证了 TCL 程序库中定义的命令能够被自动 的加载到 TCL 解释器中。完成这个功能的就是 auto_load 命令。
# Tcl autoload index file, version 2.0 # This file is generated by the "auto_mkindex" command # and sourced to set up indexing information for one or # more commands. Typically each line is a command that # sets an element in the auto_index array, where the # element name is the name of a command and the value is # a script that loads the command.
unknow 方法
请先思考下面的问题：Windows 操作系统下，当我们执行命令 tclsh 启动一个 TCL 解释 器之后，进入交互模式，然后在 TCL 的命令提示符下面输入 dir 命令，会怎样？得出结论后， 然后动动手实践一下来验证你的结论是否正确。
创建一个文件 test.tcl，其内容只有一行，就是 dir 命令，然后在命令提示符下面通过输 入命令行 tclsh test.tcl 来执行这个 TCL 脚本，看看结果怎么样。
% set auto_path
作者：雷雨后
leiyuhou010@
TCL、Python 和软件测试自动化
144
C:/Tcl/lib/tcl8.4 C:/Tcl/lib
上面是 auto_index 和 auto_path 两个变量的内容。在 C:/tcl/lib/tcl8.4 目录下存在一个文件 tclIndex，其内容如下：
source filename 唯一的参数是文件名，source 命令读取文件全部内容，然后交给 TCL 解释器来执行， source 命令的结果就是文件中最后一个命令的结果。如果执行的时候发生了异常，source 命 令也会抛出异常。 source 命令在 library 和 package 两种模式中都得到了广泛的应用。
set auto_index(auto_reset) [list source [file join $dir auto.tcl]] set auto_index(tcl_findLibrary) [list source [file join $dir auto.tcl]] set auto_index(auto_mkindex) [list source [file join $dir auto.tcl]] set auto_index(auto_mkindex_old) [list source [file join $dir auto.tcl]] „„
化、执行 init.tcl 文件的时候被定义并且初始化，过程如下： a) 如果有环境变量 TCLLIBPATH，其值将是 auto_path 的第一个元素； b) 命令 info library 所返回的路径以及其父目录会加入到 auto_path 中； c) 当前可执行文件所在目录的父目录下的 lib 子目录，会加入 auto_path 中； d) 如果定义了变量 tcl_pkgPath，其中每一个元素也会加入到 auto_path 中。 可见我们可以将库文件放到很多分散的目录中，只要在 auto_path 变量中有这些目 录中就行了。 2. auto_index：一个数组变量。其中每一个元素的下标是命令名字，对应值则是一条 TCL 语句。通过执行该语句能够定义对应的命令。例如：元素 parray 对应的语句 是“source C:/Tcl/lib/tcl8.4/parray.tcl”。执行该语句后，parray 命令就会被定义。一 般而言，这个语句类似 source xxxfile 的格式。过程就是在 xxxfile 中被定义。 auto_load 的语法格式如下：auto_load cmd ?namespace?；其中的 cmd 就是解释器碰到的 未知命令，当它被调用的时候： 1. 判断数组 auto_index 中是否存在下标为 cmd 的元素。如果有则执行对应的语句，然 后判断命令 cmd 是否被定义；如果存在就返回 1，表示加载成功； 2. 接着判断 auto_path 变量是否存在，如果不存在就返回 0，表示加载失败； 3. 然后依次在 auto_path 所包含的每一个目录下，寻找名字为“tclIndex”的文件，判 断这个文件是否是有效文件。如果有效，那么就执行这个文件。 4. 然后再次判断 auto_index 中是否存在下标为 cmd 的元素，如果存在，则执行对应的 语句，然后判断命令 cmd 是否存在（是否被定义了）；如果存在，就返回 1。 5. 最后返回 0，表示自动加载失败。 这就是 auto_load 命令的全部执行过程。可以看到，除了前面介绍的 auto_path 和 auto_index 变量之外，还涉及到了一个文件 tclIndex。这个文件的内容很简单：就是用来设 置 auto_index 变量的值。例如在我的系统上：
TCL、Python 和软件测试自动化
143
未定义命令。弄清楚 auto_load 的执行机制，会让我们更加清楚 TCL 程序库（library）的工 作机制和自动加载的原理。
首先得介绍一下和 aoto_load 相关的两个全局变量： 1. auto_path：列表变量，其每一个元素是库文件所在的目录。这个变量在解释器初始
作者：雷雨后
Email: leiyuhou010@
TCL、Python 和软件测试自动化
142
里面就不能执行了呢？其实，这都是 unknow 命令在作怪。 实际上，TCL 解释器在解释执行的时候，如果碰上了当前不认识的命令名字，都会调用
一个命令：unkonwn；并且把这个未知命令连同其参数作为 unknow 命令的参数。unknown 命令一般是在 TCL 解释器初始化的时候来定义的。作为一个比较普遍的规则：
行该命令，然后返回； 4. 如果没有定义全局变量 auto_noload，则调用 auto_load 命令来尝试从程序库中加载
和寻找这个未知命令；如果找到则执行它，返回结果； 5. 如果 auto_load 没有找到该命令的实现，那么就判断是否是处在交互模式下；如果
是交互模式： a) 并且没有定义全局变量 auto_noexec，那么就调用 auto_execok 命令来判断这个
结果比较让人诧异：交互模式下，dir 命令能够执行，并且列出了当前目录下的所有内 容，和一般情况下执行 dir 的结果并无差异；但是执行脚本，则报告了一个错误：invalid command name “dir”。怎么回事？dir 是标准的 DOS 内部命令，它不属于 Tcl 的命令。这样 的命令按照常理是不能够被执行的，但是事实上在交互模式下却正确执行了，那为何在脚本
里面就是一堆的 set auto_index(cmd)这样的命令。可以看到，第一条 auto_reset 命令可以 通过执行“source auto.tcl”语句来被定义。根据我们前面对 unknown 和 auto_load 命令的分 析，如果解释器碰到了 auto_reset 命令并且该命令没有被定义，那么就会通过 unknown 和 auto_load 来执行 source auto.tcl，而 auto_reset 命令就是在文件 auto.tcl 中被定义。所以 auto_load 能够加载成功，并且在 unknown 中会执行这个 auto_reset 命令。如果再次调用 auto_reset 命 令，就不会再次进行同样的加载了，因为这个命令已经被定义了，可以被直接调用。
% foreach {k v} [array get auto_index] {puts "$k = $v"} tcl_startOfNextWord = source C:/Tcl/lib/tcl8.4/word.tcl parray = source C:/Tcl/lib/tcl8.4/parray.tcl pkg_mkIndex = source C:/Tcl/lib/tcl8.4/package.tcl ::safe::Lappend = source C:/Tcl/lib/tcl8.4/safe.tcl history = source C:/Tcl/lib/tcl8.4/history.tcl ::safe::AliasSubset = source C:/Tcl/lib/tcl8.4/safe.tcl „„