Tcl编程简介（四）

Tcl编程简介（四）51Testing软件测试网r:m0Wwv1jg
　

Bx:^Wg#gM0t]
C0 error message
x8\ GE:F:FBhO0 error message info
{'U2zLL@gC Rnc0 error message info code

Hqo!q+bZp0

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

:@IEJ4U;G p"BB"B V
e0eval arg ... 51Testing软件测试网)CX6G+L Q;x8z%wN

　　将所有的参数连起来作为命令语句来执行。

exec arg ...
8^~0mHB;E0

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

t0ki`jXZ,K+t/X0
6SL_E7`%A%n-fU0 exec ls --color
:I1[%X}R!y&@y0 exec cat /etc/passwd > /tmp/a 51Testing软件测试网9Z/k"p*f7MQ/fr-a

hfsJYumY6s0exit 51Testing软件测试网NWC&}T6N$@R
exit returnCode

K4Yz&Vr8U}B0

5donyY0　　中断执行。

I@ o.A1KY"b!z0expr arg 51Testing软件测试网3Y,cb$M6M&}

　　处理表达式。51Testing软件测试网,X;C6k h'R0P!yo

51Testing软件测试网]!a}{n!`7@*A
B^
set a [expr 1+1]
&ID`)Iz*^;G0 //a=2 51Testing软件测试网4{PC9~y-a8k0R

e`+^ G}&s osg0file subcommand name 51Testing软件测试网!NH9o~1s.J+k iX

51Testing软件测试网:`1i jeL*bWar

D^d9t4W_ q3F0　　一组用于文件处理的命令。51Testing软件测试网"_\B{3@7RSx

#L:\9B9HN*pCU7A"yU0
C.g jm#w^;M0Lk S0 file subcommand name arg ... 51Testing软件测试网q)[.Mw4ra3bobH
file atime name 51Testing软件测试网Q F]F {:[

z1r1BHI!A*za3T0

　　返回文件的最近存取时间。51Testing软件测试网Kh[5?6yUwHu j

Vf2I,hs+P@ZB0file dirname name 51Testing软件测试网5a'B-V5zG|pl8M%O
51Testing软件测试网w"S&_Y e*w

7n u Qo2A-u`0　　返回name所描述的文件名的目录部分。51Testing软件测试网
]S,af&r/a

file executable name 51Testing软件测试网xXTfYJp

　　返回文件是否可被执行。51Testing软件测试网 j ru-z1@ ~@

file exists name 51Testing软件测试网w@R6|ab4{w,G
51Testing软件测试网q8PV.N ZUe6RXu

　　返回1 表示文件存在，0 表示文件不存在。51Testing软件测试网!j+z"g%ys

file extension name 51Testing软件测试网4VV5OW'{(t

e,FQ/`|.?0　　返回文件的扩展名。51Testing软件测试网\-d_z#Qw

*\$KQ5OG\ H0file isdirectory name
%me.x2k _WhD0

V^G H7N:V\'}0　　判断是否为目录。

cyn/^!D|1B0file isfile name
"QiWM.G_l)|0 51Testing软件测试网$?8seX*r3xR

　　判断是否为文件。51Testing软件测试网fvb3^Hm?

1W~$PbI/D.r0file lstat name varName 51Testing软件测试网E
N(\){I*g
51Testing软件测试网F-n+@\-eb!l

4X3{]%E/l,\9S0　　以数组形式返回。执行lstat系统函数。存储在varName。

file mtime name
e.e%C yD:g0

*WJ$[*LsP D0　　文件的最近修改时间。51Testing软件测试网;|C/R,I)Fc2z

file owned name
^2s+K0p7H KYg
g/ad0

#C
\^:IKVn0　　判断文件是否属于你。51Testing软件测试网-Jp:hs|+^

file readable name
NIt6vF0 51Testing软件测试网h@+G%B7V*b

　　判断文件是否可读。51Testing软件测试网-}+r DBr,cE+b)W

/Q!h$s9f6ACn$O'gO0file readlink name 51Testing软件测试网pntc&g;f

g%q3M7Ga C$I R/t0　　都出符号连接的真正的文件名。

file rootname name
Frfq@8y0 51Testing软件测试网qo!|a0{.X q%?1\5P

8J]&f;g$?;x0　　返回不包括最后一个点的字符串。

file size name
1N2k1EHxc0

　　返回文件的大小。51Testing软件测试网Z(iI/n9`;`

file stat name varName 51Testing软件测试网
^0H;X8R1~-v9jz"o Zqr

(\ lf`v-zZ0　　调用stat内和调用，以数组形式存在varName中。51Testing软件测试网"I}1ML
JO]L$ft6T

file tail name 51Testing软件测试网/J2XhN)H S

!MW s?.@)H0　　返回最后一个斜线以后的部分。51Testing软件测试网i-Hg7H"G

file type name 51Testing软件测试网
Bu{X'\M%z*M

If3DMh(_0　　返回文件类型file, directory, characterSpecial, blockSpecial, fifo, link, 或socket。51Testing软件测试网&^3q J4?4C(k\%Eu-c5I

file writable name 51Testing软件测试网 {'dp*nnWy
51Testing软件测试网u7u2bx)_(\;zhn"z

hm6v"f%{e2k0　　判断文件是否可写。

flush fileId 51Testing软件测试网4N3e.^4k2sOa

　　立即处理由fileId描述的文件缓冲区。51Testing软件测试网,s*`9\2L+j:G-n^4A

for start test next body
^|PY3H[0 51Testing软件测试网e\/`3EwW

　　for循环。同C总的一样。

KN7` `
U051Testing软件测试网Ylv"`X
for {set i 1} {$i < 10} {incr i} {puts $i} 51Testing软件测试网x)j b*u!Ig
foreach varname list body 51Testing软件测试网,|-|.D*f2@2g

51Testing软件测试网Qy5zN'R4X

　　类似于C Shell总的foreach或bash中的for..in...51Testing软件测试网o~D&n]

51Testing软件测试网9K;LwX"o)n"@p3d`
format formatString 51Testing软件测试网;x'C?D~@ l2|l q
format formatString arg ... 51Testing软件测试网N@qm7uW

e,w+q'MV%Lo0 51Testing软件测试网k-qLVQ

　　格式化输出，类似于C中的sprintf。

iC^8A\wVH
\ |051Testing软件测试网.s3|nwO{
set a [format "%s %d" hello 100] 51Testing软件测试网/FK R~*nmk6J
//a="hello 100" 51Testing软件测试网 mt!P1[1b~*T7MKdH

7vc'lU|'z"c0gets fileId
;k&W7C"eRql0 gets fileId varName

5Y teUt
@*E,x0

K;S9{8\yj/mV,k:YE0　　从文件中读出一行。

51Testing软件测试网+T4]i/j1`V$T
set f [open /etc/passwd r]
1|y;i5}%}B5x&W0 gets $f 51Testing软件测试网{$b4U#pl c0xLq,X

&M-B,[Z;q)Vz,sm0glob filename ... 51Testing软件测试网.q;O/s2?Y{d L
glob -nocomplain filename ...

51Testing软件测试网 ?mYnj8{D

　　使用C Shell风格的文件名通配规则，对filename进行扩展。51Testing软件测试网x&f{-@;G(LI3t

~0uW\n.\3R051Testing软件测试网,v[ m{gE
ls /tmp 51Testing软件测试网6\C1R1fg
a b c

tclsh>glob /tmp/*
9VHPM*w} f f0 a b c

51Testing软件测试网PR"s)A~+H&kk'iPs

　　当加上参数 -nocomplain 时，如文件列表为空则发生一个错误。51Testing软件测试网2tC`]#s:wLgCJ$W

7p}N G7qi0global varname ... 51Testing软件测试网tP6f'r P WR-x4M's

.Q G0M;Y4[
JH4~:Q0定义全局变量。51Testing软件测试网(V7Yrl5Z1r

q0SZ+JY)JSy9r(J+]0 if test trueBody
nQ+V!S$rY%l;^`i#i0 if test trueBody falseBody 51Testing软件测试网U6H,IN[q{%w0s
if test then trueBody 51Testing软件测试网fK!XoGe(Re?0S,|
if test then trueBody else falseBody

*JQ-R!bk}
~0　　条件判断，是在没什么说的。51Testing软件测试网%u]Cd+N3e,y)V,F#M

51Testing软件测试网1jx\h%p(IR(b&uY2pp
incr varName 51Testing软件测试网-{cD3]/i:@
t
incr varName increment

2u0M&PWopln0

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

5]YZ6O1x"nmnJ0 set i 10
}/E)t1S l0 incr i 51Testing软件测试网V&VCX$X@Tk
//i=11
e0F*d-_g.n~0 incr i 10 51Testing软件测试网!\x7dA%y|3QFi
//i=21
-VM1K*o1^9MG|'[ c0 info subcommand
| y!g d T)?0 info subcommand arg ... 51Testing软件测试网fw GsPN#c

K o_7{^.|7T@_*i d0　　取得当前的Tcl解释器的状态信息。

info args procname 51Testing软件测试网 dz O3j4H!X
51Testing软件测试网 I#}Hh~W

^^?b~0　　返回由procname指定的命令(你自己创建的）的参数列表。51Testing软件测试网*Wz)nrk yW

%Z*e1b1WO9X0　　如：

8K/i4fgT#Z051Testing软件测试网~k ye@`"z!k
proc ff { a b c } {puts haha}
3S of!I*H*SIYQI0 info args ff
/Qw3XgMl0 //return "a b c"　

info body procname 51Testing软件测试网/bQbHF/Kj

MBr&~[0

z eI wD0　　返回由procname指定的命令(你自己创建的）的函数体。51Testing软件测试网0?)R i2k$C0T(b3CzY8t

FQ/?
L`#vQ;eY|0　　如：51Testing软件测试网$zM;[f+|"x|

.{
yRb#JSw*V051Testing软件测试网"Gp a2O/| R0b!h
proc ff { a b c } {puts haha} 51Testing软件测试网xr'@*F0Q4\#@!H+a.C
info body ff
$tWK p\0 //return "puts haha"　
(bVp"H?3O~0 info cmdcount 51Testing软件测试网6@1@1a5F0Y8e#c'E'X

&dK.`9u.A-o9j0 51Testing软件测试网G9smy-z bV

　　返回当前的解释器已经执行的命令的个数。

l#Z{I7}^0 info commands 51Testing软件测试网?7~2E|,R!u_
info commands pattern

*W;n9|,`
u9oU/S+~0

　　如果不给出模式，返回所有的命令的列表，内建和自建的。51Testing软件测试网5FH t:e"S? h

　　模式是用C Shell匹配风格写成的。51Testing软件测试网1[C Z1T-g&X

C5I['\d:R0
X8m$RH1[GT0 info complete command 51Testing软件测试网1}1u*Ml
p0[,L

y7_%` @'o6c{mH0

9z.G#t.V3Df3Q0　　检查名是否完全，有无错误。

&Pj$y$fe6e0info default procname arg varname
%^Oma*a$[0 51Testing软件测试网"f,K x*Pu0o&F

cf0c*t{)oy&O0　　procname的参数arg，是否有缺省值。

info exists varName
&n6wR)UE+N{0 51Testing软件测试网5Y_@Iw

　　判断是否存在该变量。51Testing软件测试网 P A X{*}5A

IP0v;@ uI0
_i~ Z6LF0 info globals
J4A]%~ZF5~0 info globals pattern

9Nx3fDO}A4M a0　　返回全局变量的列表，模式同样是用C Shell风格写成的。51Testing软件测试网 z mq.Gb\g

info hostname 51Testing软件测试网 t\Ag.{LT;\z jJj
51Testing软件测试网t^&uMJ

　　返回主机名。51Testing软件测试网&eq3ajqJJ

TULUG0 info level 51Testing软件测试网*X fO7p7C `;sd
info level number 51Testing软件测试网"BX:nCi,P

[:nq*B)]aON0

　　如果不给参数number则返回当前的在栈中的绝对位置，参见uplevel中的描述。如加了参数number，则返回一个列表包含了在该level上的命令名和参数。

info library
9`e P-K4K7v{ Y x?9R/T0

2He I]m0　　返回标准的Tcl脚本的可的路径。实际上是存在变量tcl_library中。

*lu9b-p@6Rp+|0
,?|T-X_0 info locals 51Testing软件测试网.{y+RIsl
info locals pattern 51Testing软件测试网9L/?n:oP}:WTo

4X2o&r(}:b,?@'e@0 51Testing软件测试网-x's7D.Je s

6Y*R)_!{!@-s }G0　　返回locale列表。

W]L5Czi @2Z~051Testing软件测试网 kOhI~O
info procs
/q9t9nZ3{.vI+P0 info procs pattern

A&nQ&`|(KF8Ki0 51Testing软件测试网N6Bk^2UU$@t*J*Q

K%E4eC9Hxa0　　返回所有的过程的列表。

info scrīpt
^y*b:k'K }(@ Q*s?0 51Testing软件测试网0\B`E"fEx4[

　　返回最里面的脚本（用 source 来执行）的文件名。

info tclversion
4wD$Io)S)K8n0

Y6@TIB.faZw0　　返回Tcl的版本号。

ft/A:g?k$T6y FT051Testing软件测试网's(?tLY4W
info vars
8Edz(H,L|'uV#\.A U0 info vars pattern

　　返回当前可见的变量名的列表。51Testing软件测试网B?S~9S2GA7l7vK?

1d2Puk:`%DA0　　下面是一些用于列表的命令，范围可以是end。

(ltr~
vo6|a n051Testing软件测试网 yX"]m,ZG F%^
join list 51Testing软件测试网{ Hi7e}le5n
join list joinString

51Testing软件测试网%m0|P*Ir(y

m`@2|r9N;T)v0　　将列表的内容连成一个字符串。51Testing软件测试网_,\"nWy)a y ~|q

z$eN|:Pax#P0
yX PN ^/Xa0 lappend varName value ...

o;UqF,e
EhT(B0 51Testing软件测试网gqYn@c)upU\

O.c.Kq S|0　　将value加入列表varName中。

$n~+s4T-U0lindex list index
T A5EXj0fg3z0 51Testing软件测试网sO_4\9k-@#z

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

51Testing软件测试网O/_!V"n
uQ
lindex "000 111 222" 1
DijLtk
m4kfA0 111 51Testing软件测试网6z#tU7^Y1p
linsert list index element ... 51Testing软件测试网`]Ck$v a

s(e.`!rp|s0 51Testing软件测试网2TYD5DtA[Ziv4g

U+QZ~vZ/Z0　　在列表中的index前插入element。

list arg ...
!Ts!D;\M2~/t UM0

br lCh3b6PsLZ)S0　　将所有的参数发在一起产生一个列表。51Testing软件测试网^4e6GN+Td*RV

e1V4Vy2z!C051Testing软件测试网#vctVpSdL;N!eV
list friday [exec ls] [exec cat /etc/passwd] 51Testing软件测试网zU)Qk4~c
llength list 51Testing软件测试网`e+`j[E)?P

51Testing软件测试网%tTtSGBm"j:E

Qf/M [2s^Fe0　　返回列表中元素的个数。

#St,v\b Yb EKz0
d3N~vA%ns+K0 set l [list sdfj sdfjhsdf sdkfj] 51Testing软件测试网cK I"~L"D
llength $l
*A"Av@!c,K1M3[0 //return 3 51Testing软件测试网1R|k ~K1lL8\.J
c

lrange list first last

_~B^;w N'l0

T;Z
c4e@+~0　　返回列表中从frist到last之间的所有元素。

51Testing软件测试网1Rec+K(?!m
set l [list 000 111 222 333 444 555]
!]^b%r \0 lrange $l 3 end 51Testing软件测试网 t$uatPZec'D
//return 333 444 555

'xO7B|*j-t0lreplace list first last
G:mO6jW2L5EK0 lreplace list first last element ... 51Testing软件测试网Y.r+Vj k)b

　　替换列表中的从first到last的元素，用element。51Testing软件测试网"|D.HF.oo|5l

iSj8OF"CB0 set l [list 000 111 222 333 444 555]
BJ3e]B"c ZI,c0 lreplace $l 1 2 dklfj sdfsdf dsfjh jdsf 51Testing软件测试网l[t"@Ai E
000 dklfj sdfsdf dsfjh jdsf 333 444 555

.~.UXL"kY^N \ N9c0lsearch -mode list pattern

51Testing软件测试网"j_*s!P6LF

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

F0S!Y]X*N7n;j8t0

|0s*SD:ZqH@X0 -mode : -exact 精确 51Testing软件测试网/c R8\.m&}ENd(d }!H
-glob shell的通配符 51Testing软件测试网Q"vl7Lx Ez
-regexp 正则表达式 51Testing软件测试网8] |#t{`9]4{)N

lsearch "111 222 333 444" 111
*j2N&w,vB6WI6e:~/f0 //return 0 51Testing软件测试网O7HZs.R R5_
lsearch "111 222 333 444" uwe 51Testing软件测试网*n%[:D2{/?.{DR
//return 1

w(slQ/Y h0