Tcl脚本编程测试题.pdfVIP

Tcl/Tk Quiz Sheet Time: 2 hours Part I. Fill Out. (10%) Tcl is for __________________________________, it’s a ___________ language. 生成pkg_Index.tcl 文件的命令是________________________ 。 在执行package require 命令的时候，该命令会根据变量_________查找相关package 所在路 径。 Tcl 命令出错时错误信息一般存放在全局变量___________ 中。 用命令_____________________可以列出数组中元素名称。 可将一个字符串中的每个字符分开来的list 命令是______ ；如果字符串是“HappyDay”，则 完整的命令为______________________。如果要在这个字符串中每个字符之间插入一个“/ ”， 则可 以使用上面 的命令和另一个 list 命令______ 来共 同完成，完整命令为 ____________________________________________________________________________。 名字空间输出过程/ 函数的命令是 namespace _________________ 。而从名字空间输入过程 的命令则是_____________________ 。 在读取文件时，判断已到文件结尾的命令是_____________ 。 获取过程的脚本的命令是info______；而获取过程的参数的命令是____________ 。判断一个 变量是否存在的命令是__________ 。 可以用来装载并执行脚本文件的Tcl 命令是____________ 。 环境变量被存放在一个特殊数组中，即________________ 。 根据模式说明来格式化字符串的命令是________________，而根据模式来解析字符串的命令 是_______________ 。 Part II. Choice correct answer(s) for the following review questions .(24%) To open a file for reading and writing, which command is right? [ ] (1%) open $file rw open $file r+ open $file w open $file w+ In which sentence(s) the variable after (first) “$” can be replaced by it’s actual value? [ ] (3%) catch { puts {My name is $name} } err regexp {my name is $name} “I’m a girl, my name is QQ” match set str {My name is $name} eval {puts “My name is $name”} set var name; puts “My name is $$var” if {$name = “QQ”} {puts “$name is bigger than QQ”} subst {a={{$name}},b=[expr 3*10]} switch $X { “$name” {puts ok} …} To find out commands which can be used to destroy an array “arrParams”.[ ] unset arrParams array unset arrParams destroy arrParams forget arrParams Which character is logical and?[ ] || | Pick out the correct command(s) whose result is an integer ? [ ] expr 10 / 2.0 expr 10/2 expr int(10/2.0) expr int([expr 10/2.0]) Which command can be used to convert hex value “0x23 ”into a ten digital length integer wit