TCL笔试(最新整理版).docxVIP

实用文档

TCL测试题目（B卷）

填空题(每题3分，共30分)

1.?regexp{([0-9]+)*([a-z]+)}thereis100?apples??total?num?word

puts$total,$num,$word

最后输出结果为___________________.

参考：100?apples,100,apples

2.regsubthere?Theylivetherelivestheir?x

puts$x

最后输出结果为___________________.

参考：Theylivetheirlives

3.（每空一分）

TCL提供三种形式的置换：_________，_____________和____________.

参考：变量置换、命令置换和反斜杠置换

4.setx10

Sety$x+100

最后输出结果为___________________.

参考：10+100

5.（每空1分）

Setx100

Sety“$xddd”此句输出内容为__________

sety{/n$x}此句输出内容为__________

Sety[expr{$x+10}]此句输出内容为__________

参考：100ddd

/n$x

110

6.建立一个数组day，它有两个元素Monday,Tuesday,值分别为12

创建语句为：_______________

_______________

参考：set???day(monday)???1

??????????set???day(tuesday)???2

7.lindex{12{34}}2

输出结果为_______________

参考：34

8.linsert{12{34}178{910}

输出结果为_______________

参考：178{910}2{34}

9.stringfirstabdefabc

输出结果为_______________

参考：3

10.catch{return“alldone”}string

Setstring

输出结果为_______________

参考：alldone

简答题（每题10分，共30分）

1．#!/usr/bin/tclsh

#

#Demonstrateoperatorsand

#mathfunctions

setPI[expr2*asin(1.0)]

if{$argc==3}{

setX[lindex$argv0]

setY[lindex$argv1]

setRad[lindex$argv2]

setDist[exprsqrt(($X*$X)+($Y*$Y))]

setCir[expr2*PI*$Rad]

setArea[expr$Rad*$Rad]

putsstdout“Distance=$Dist”

putsstdout“Circumference=$Cir”

}else{

putsstdout“Wrongargumentcount!”

putsstdout“NeedsX,Y,andRadius”

}

提示，asin(1.0)值为1.5707963Linux下以上脚本程序输出内容为：

______________________________________

参考：Wrongargumentcount!

NeedsX,Y,andRadius

2.#!/usr/bin/tclsh

#

#Demonstateglobalvariables

#andbackslashsubstitution

if{$argc=1}{

setN1

foreachArg$argv{

putsstdout$N:$Arg\n

setN[expr$N+1]

if{$Arg==ring}{

putsstdout\a

}

}

}else{

putsstdout$argv0onXDisplay$env(DISPLAY)\n

}

Linux中以上脚步命名为hello3，则运行脚本以下结果为：

$./hello3.