Tcl编程简介（四）

Tcl编程简介（四）51Testing软件测试网[rw5z'h2bl
　51Testing软件测试网 D,Vy }1V ]!F2O

51Testing软件测试网KCpndg
error message
h
g;Cr'gnU0 error message info 51Testing软件测试网"a%E:{.hr
error message info code

5f"^`'[yC f8z_U0 51Testing软件测试网'z/H4IE rpy

4t5g)G]EJ0　　返回一个错误，引起解释器停止运行。info用于初始化全局变量errorInfo。code被付给errorCode。

eval arg ... 51Testing软件测试网[3[l+knqe]

-n:A0v:`SJ+A0　　将所有的参数连起来作为命令语句来执行。

$Sk?W2G0exec arg ...
YS&zM,r$T_r#n0 51Testing软件测试网f4vq~3i"n4\4Q

　　仿佛是在shell下执行一条命令。

L;G4L/~ l;m:]"w0 exec ls --color 51Testing软件测试网 QAR {h @F3G$A!|
exec cat /etc/passwd > /tmp/a

@2j3o[ ybp0exit 51Testing软件测试网Lt/E;|&l6wmv
exit returnCode

51Testing软件测试网Zx/hg.@#g(o9g9k

*bd R
zgjK'X0　　中断执行。

+? p(BQ?,u6^h&I0expr arg 51Testing软件测试网H,f8RL:Vu7yUW
51Testing软件测试网%YK`7g h

　　处理表达式。

C(u#E:DP6|Y]0
chg*]9c0N0 set a [expr 1+1]
ZS"pR _G"c0q I0 //a=2

2T3qX
owlp0file subcommand name

"M^:z+^Q0 51Testing软件测试网Ba)Le-p8x

　　一组用于文件处理的命令。

b:]1qmg H5k051Testing软件测试网f+D#MU{a0g%B
file subcommand name arg ...
|s]th%}
d0 file atime name

U5c@Pr$GE0 51Testing软件测试网N$E DK-lE

　　返回文件的最近存取时间。

4I]9k Qs0file dirname name 51Testing软件测试网2UZ.P'k5cw*dL
51Testing软件测试网%s)y/t1F8_"N

　　返回name所描述的文件名的目录部分。

file executable name
O.w_n+K[9Q0 51Testing软件测试网&@p,J.\/\ wn{n-t

　　返回文件是否可被执行。51Testing软件测试网 ?!aE
hg]_

:^Hy5x"f2L0file exists name
z~ pv FZ0

/N7ST%Uvv w0　　返回1 表示文件存在，0 表示文件不存在。51Testing软件测试网Y#Nlj#O;NIr

c}eY9L:d'x0file extension name 51Testing软件测试网mZp,eWz.\
51Testing软件测试网} cnj!u3_dP7x#x

4h
A/hl'b5VE/zj_0　　返回文件的扩展名。51Testing软件测试网$j;[
bZ'u%q7Bt

file isdirectory name
._z*b^ Z0

1M:{Gw6X'l&@v/J3f0　　判断是否为目录。

file isfile name 51Testing软件测试网$Ls/q.KC Z
51Testing软件测试网b-^lF!ONc
]

E;D!B$K9Z:a*\*zeK0　　判断是否为文件。

0\#RFR/ypf%f2d0file lstat name varName 51Testing软件测试网l/E4Y v$j5d'X
51Testing软件测试网 x$@)I` EF!b6d

　　以数组形式返回。执行lstat系统函数。存储在varName。

{2Kd*k qsoJ0file mtime name 51Testing软件测试网1GY|+Ku`+y``'Pq

　　文件的最近修改时间。51Testing软件测试网e7w{4lc8@

w |oV1d4`0Ot0file owned name 51Testing软件测试网2_t*{!o2Q8}T l

　　判断文件是否属于你。51Testing软件测试网']:aZ^7w,K

file readable name 51Testing软件测试网R\u a"t!]EJ
51Testing软件测试网`a5MJVD

　　判断文件是否可读。51Testing软件测试网s\:S.Y1Of1s

file readlink name
o*{!Pr h;A0

　　都出符号连接的真正的文件名。51Testing软件测试网&ES$R+Z(|

)CP+r!\a(`7n0file rootname name
#|xX3N6SM!?0 51Testing软件测试网/]3z^exeq+y

kx'}o8Wsdw4hO^0　　返回不包括最后一个点的字符串。

file size name 51Testing软件测试网(\8C-p#k5RL

　　返回文件的大小。

file stat name varName 51Testing软件测试网6]!C*v&{)Cn
51Testing软件测试网 H!k F.R1GN.^cU:P

　　调用stat内和调用，以数组形式存在varName中。

k K+Jn rY0file tail name
'v nf4I)Z
}0 51Testing软件测试网0FEpIr'?I

7k~:C;j%G%o$a7s0　　返回最后一个斜线以后的部分。

EWgW-F0file type name 51Testing软件测试网ml_2pvm5s0t/r

　　返回文件类型file, directory, characterSpecial, blockSpecial, fifo, link, 或socket。51Testing软件测试网~7pl'er/z&N

V-k
S5EsH
@/w q%R5n2I0file writable name 51Testing软件测试网k
y1mlCU

　　判断文件是否可写。

flush fileId
(RL ?"|h+o(N0 51Testing软件测试网0Kb*Q4X@K4t+bXXr

　　立即处理由fileId描述的文件缓冲区。51Testing软件测试网oGg\(sE5L^JN

K)R)h@3O'erV0for start test next body
n+Y{a[ [4[o0 51Testing软件测试网8z4n'f(bT.O%{z7{

　　for循环。同C总的一样。

51Testing软件测试网y"MtA!w2m
OV
for {set i 1} {$i < 10} {incr i} {puts $i} 51Testing软件测试网9Ik)hB t
foreach varname list body

(D
y4]0Z&ttH
V6P)`i0

(_"]!~"p c6Vs0　　类似于C Shell总的foreach或bash中的for..in...51Testing软件测试网rA'er?;T\J

51Testing软件测试网Omq&JwU"B$px
format formatString 51Testing软件测试网/?"iZj8y ^ @F l
format formatString arg ... 51Testing软件测试网6k3[ a.w3s

51Testing软件测试网.rXf#q JL iw

vq t0q2fEw^R0　　格式化输出，类似于C中的sprintf。

dqY5UMc(O0
\(m5Rg7x[0 set a [format "%s %d" hello 100]
lXc7G2O0d wg v#[-w0 //a="hello 100" 51Testing软件测试网'v3l!? J.{

7q^;]twZp x0gets fileId 51Testing软件测试网5k-L f]'y)EIU
gets fileId varName

U4aE(|k
`y?0　　从文件中读出一行。

51Testing软件测试网Af@&Z'G
set f [open /etc/passwd r] 51Testing软件测试网~+\YA$Z
gets $f

KJ)L8cy#ZW|0glob filename ... 51Testing软件测试网'V6x@%P3aG%z}DKL
glob -nocomplain filename ... 51Testing软件测试网fw9Hb5i(Pz,V\&Q;Pw

"p%?"@5Q^C@U'qK0

wE%^U1A@8I0　　使用C Shell风格的文件名通配规则，对filename进行扩展。51Testing软件测试网]3dh#|W:A:{{)o

51Testing软件测试网r$o
Dl9h
ls /tmp
QWI;gTA0 a b c 51Testing软件测试网@'Uw)\2i3v
y

tclsh>glob /tmp/* 51Testing软件测试网2I
Ch\b%wGn
a b c

51Testing软件测试网q
s2PdT

L+_1at8T^)Zm%x0　　当加上参数 -nocomplain 时，如文件列表为空则发生一个错误。

global varname ... 51Testing软件测试网$fX_UAY#~\Y;U
51Testing软件测试网3N^A%Ijw

3S
y O
w4GD9K q"E6fs6t0定义全局变量。51Testing软件测试网WZ&v6HQu}

"]c-MK$l2cM0 if test trueBody 51Testing软件测试网_8\'M-C] E1c;T/ib{
if test trueBody falseBody 51Testing软件测试网OBC+]Sx
if test then trueBody
1~!z9nSF p0 if test then trueBody else falseBody 51Testing软件测试网8eO*ioc9nblGC#se

　　条件判断，是在没什么说的。

&N[,j4v
wrC,V0
"l.p'D7FD-Cz yO0 incr varName 51Testing软件测试网(uV_/Mf'j!I"w
incr varName increment

%i'@,}$^/s'Qq&vk0

　　如果没有incremnet，将varName加一，反之将varName加上increment。

&h_o-s`+M,^jk0t#u051Testing软件测试网N;v*\lF
set i 10 51Testing软件测试网q-]P(~ M2Ep k
incr i
Z
m(n#e,e;U0 //i=11 51Testing软件测试网v
~}L2j
X QS
incr i 10 51Testing软件测试网:avY!hq\-X
//i=21
'?2jcc}W0 info subcommand
Lh(r3s|.`"B3A0 info subcommand arg ...

　　取得当前的Tcl解释器的状态信息。

vJw6R4L4s,gJu0info args procname 51Testing软件测试网4e#g F+X!`?vq

U8xb?#~}6qm+Vn0　　返回由procname指定的命令(你自己创建的）的参数列表。51Testing软件测试网,y4Y|a4p^q6f

　　如：51Testing软件测试网t3u"|k N~ y+Au

51Testing软件测试网#l^2` ^eJ*W7sSv
proc ff { a b c } {puts haha} 51Testing软件测试网KJi6@{*j+lM
info args ff
n*Tl.ohi4r u0 //return "a b c"　

info body procname

51Testing软件测试网"F%@o#[aSxw0qX4QD

}g _C i C-H } c0　　返回由procname指定的命令(你自己创建的）的函数体。51Testing软件测试网!Vp:UA(A

4C RIK?,}.hh0　　如：

51Testing软件测试网n!Sf$S2g^
proc ff { a b c } {puts haha} 51Testing软件测试网g I;wf#y*\
info body ff 51Testing软件测试网K^%B!w4Y9M7MN`
//return "puts haha"　
Y
\$J#?
ff.l0 info cmdcount 51Testing软件测试网lK'k
?I-R/U d|^

　　返回当前的解释器已经执行的命令的个数。51Testing软件测试网1A#wNn
EnCH
G&b

R^5X,L-J{0 info commands
PE+]+d9C`7k/P0 info commands pattern 51Testing软件测试网imGj;lF

　　如果不给出模式，返回所有的命令的列表，内建和自建的。

0r+UKz#g0r[R0　　模式是用C Shell匹配风格写成的。

P
}5hI\'h?051Testing软件测试网-Q0s6d5so"`J.L3?
info complete command

　　检查名是否完全，有无错误。51Testing软件测试网kg"t0^w4yx

info default procname arg varname
m"@iz9p4Lf&pl,@0

Zzy];k Ie0　　procname的参数arg，是否有缺省值。51Testing软件测试网L5N!wFL*c0aMh

G X+Sg_)U0info exists varName
G'BWBiE-g0 51Testing软件测试网@F d1Q p6R$g$ux

　　判断是否存在该变量。51Testing软件测试网$M |-ttEv`#DH(zU

&r#U\E
{%@\0
0eGhe_2s;V,Y0 info globals
3F vPdIL,l0]0 info globals pattern

51Testing软件测试网0|s-n9k#??([

,GF,`eZq0　　返回全局变量的列表，模式同样是用C Shell风格写成的。

info hostname 51Testing软件测试网g4sJe\4A TcV
51Testing软件测试网OK+a.|@pe

　　返回主机名。51Testing软件测试网9giX5X*e1zK)w1w8E j

L:Hy3Bo1N051Testing软件测试网 A\"OMA)b tvv.I
info level 51Testing软件测试网%wh8_iN P]!Yp
info level number

(hh!]FsL0 51Testing软件测试网JG,[]FA9oz

C*vR$T/Yu"y'J2MS0　　如果不给参数number则返回当前的在栈中的绝对位置，参见uplevel中的描述。如加了参数number，则返回一个列表包含了在该level上的命令名和参数。

info library 51Testing软件测试网7N4HAJ;?-SR6n*gg

8V} b5} b_v$PR0　　返回标准的Tcl脚本的可的路径。实际上是存在变量tcl_library中。

51Testing软件测试网Bb&{FG P
info locals 51Testing软件测试网/[t L*}M |o
info locals pattern

uUC!nz k0　　返回locale列表。51Testing软件测试网 ]2Hs.V8_r5k9_5a~

KDeU|0 info procs 51Testing软件测试网Q.U9CUO|t*M8a\F
info procs pattern

\"xv _Q*g0 51Testing软件测试网P7yTnybQ_o |2Y

　　返回所有的过程的列表。51Testing软件测试网V3m%nAD {2d$\1C6S

info scrīpt 51Testing软件测试网D)X)l`7VZb.L

Gy;i;Vp9LmY$z!c0　　返回最里面的脚本（用 source 来执行）的文件名。

Zw2hI8XN.s~m;b @0info tclversion
x9K8G:e2w0 51Testing软件测试网&G&X9Po g

　　返回Tcl的版本号。

51Testing软件测试网Zz;yP I-o|9|
info vars 51Testing软件测试网,sZjh3`|(v6aW
info vars pattern 51Testing软件测试网0PK'Ux~1k+\cFbZ

0M4`~KyJt{7WU0

　　返回当前可见的变量名的列表。51Testing软件测试网!hc/?e:_lw"f(\j

4X$tI2?{5Y0　　下面是一些用于列表的命令，范围可以是end。

qY.YaMP4[([0
&e$H9U:] H$L'P:S e0 join list 51Testing软件测试网/~]arygI!nS4@
join list joinString 51Testing软件测试网t+Imbg$F

P'ut0Q+m[0

　　将列表的内容连成一个字符串。51Testing软件测试网m3f@w'o ?

U9B._5y6^0
]+SZ7KL"r0 lappend varName value ... 51Testing软件测试网:l*SWU.E

w*G2]i{%@h0

　　将value加入列表varName中。

ASu"Mn2B0lindex list index
9y|8Zx|#Ih_-E0 51Testing软件测试网(gN3H3^]2u

　　将list视为一个列表，返回其中第index个。列表中的第一个元素下标是0。

rG,G2z+u'{NX t0 lindex "000 111 222" 1 51Testing软件测试网*_UR&^%cu8_
111
DX9rA/j,pj0 linsert list index element ... 51Testing软件测试网,y`MHT{T%x

b*|^F*D%z:J [1Gu0　　在列表中的index前插入element。51Testing软件测试网7Jc.D/wo

f t6xu8p0L+r0list arg ...
](L`&kz8hIB0

　　将所有的参数发在一起产生一个列表。51Testing软件测试网S&V"XN$@ Q1|q!ZS8s\

y5Du.cKYM0 list friday [exec ls] [exec cat /etc/passwd]

z0I*uI'N_ ~0 llength list 51Testing软件测试网+Q5ga i'J {-r

,p7F9R@{5^8o0　　返回列表中元素的个数。

4C(Fv
\/c-a~"`P(A3K0
ta^kIxG%u3H0 set l [list sdfj sdfjhsdf sdkfj] 51Testing软件测试网2r)Qn$`XE7Z
llength $l
.H9jb
N5j_9n0 //return 3

y!W)r6C@Zt,Lr-W0lrange list first last

51Testing软件测试网O*H@Q;|;\1B%vK

ye7yK_:L0　　返回列表中从frist到last之间的所有元素。51Testing软件测试网$u"W1p F$l HN9b

;J'r!L*P;iW*~&b051Testing软件测试网gG9}I)O1[gd|
set l [list 000 111 222 333 444 555]
Oxx/P6CZ|Y B~0 lrange $l 3 end 51Testing软件测试网*f9rX mBK
//return 333 444 555

$iav6\p@0lreplace list first last 51Testing软件测试网g"W'I-y~%vt
lreplace list first last element ... 51Testing软件测试网(M2U0jhO/I G p2B H

　　替换列表中的从first到last的元素，用element。

? W:n
f-uY?^051Testing软件测试网Bn2i;b$j3Z)|uC$e
set l [list 000 111 222 333 444 555] 51Testing软件测试网W3q2f`-Ynv-SW
lreplace $l 1 2 dklfj sdfsdf dsfjh jdsf
Z6h6eAx}:}0 000 dklfj sdfsdf dsfjh jdsf 333 444 555 51Testing软件测试网(v'\:G1qG8Y&D/Jv4m

lsearch -mode list pattern

'q$U8s&g6mqW:yR0 51Testing软件测试网?[mX1R
LU$L

　　在列表中搜索pattern，成功返回序号，找不到返回-1。

51Testing软件测试网"nh
S1b,q~)h
q2?`x
-mode : -exact 精确 51Testing软件测试网dF\O+o,[3SuX[
-glob shell的通配符 51Testing软件测试网1t8P*f/owa%Q&v
-regexp 正则表达式 51Testing软件测试网-w8U)^!OD|

lsearch "111 222 333 444" 111 51Testing软件测试网~o$yFK'U
//return 0
N [L/Y:J1c3p0 lsearch "111 222 333 444" uwe 51Testing软件测试网PK\%~4cf
//return 1

51Testing软件测试网#Fl;Qh-eg`gO@^T