expect的基本用法

#!/usr/bin/expect51Testing软件测试网3r^-i:z$x
B(W_l
# Change a login shell to tcsh51Testing软件测试网;v)z-yR ~.K
51Testing软件测试网
oc1KIq!Y f^)k
V
set user [lindex $argv 0]

Kl!J(xgujlp1e0spawn chsh $user51Testing软件测试网9rSjz6WN!Xs
expect "]:"
]H4q-K OHf0send "/bin/tcsh " 
hoaJo JQ0expect eof
0btK
foW#z0exit

expect -re "\[(.*)]:"
8xY/nV;^+\]+o1~0if {$expect_out(1,string)!="/bin/tcsh"} {
rI-[\z0a%R0send "/bin/tcsh" }51Testing软件测试网
@;C5i9E1f)O'RTb Q]~
send " "51Testing软件测试网(DE:Xgw4aACxg
expect eof

#!/usr/bin/expect
-W4N$g
C5yqW0# Prompt function with timeout and default.51Testing软件测试网`{5Jt4d2bG6{
set prompt [lindex $argv 0]51Testing软件测试网^
K(l*WG&yw
set def [lindex $argv 1] 51Testing软件测试网;K)x
BK+[%y
set response $def51Testing软件测试网tP'|3gd8H8M
set tout [lindex $argv 2]

send_tty "$prompt: "51Testing软件测试网Q%j	nD:z(b
set timeout $tout

aN2V"e	p	f)JA'}
N0expect " " {
RwR!g't0set raw $expect_out(buffer)
5N.D4y^
yTf*n(F0# remove final carriage return51Testing软件测试网
vK)~%?7k	T!t
_
set response [string trimright "$raw" " "]51Testing软件测试网H,J
Zt1sR
}51Testing软件测试网2ECkwh5V
bE
if {"$response" == "} {set response $def}51Testing软件测试网l_'nZF)nN,cx!qa
send "$response "
R&AJ+Y E(@hL}p0# Prompt function with timeout and default.51Testing软件测试网%~r_F6@9A
set prompt [lindex $argv 0]51Testing软件测试网8Kd[,Wt-Al)i
set def [lindex $argv 1] 

Mx:rM
g,f,[.x0set response $def
%u6KA;u
W2?5\|P!~LV&t0set tout [lindex $argv 2]

#!/usr/bin/expect
RJpP+l-\`0# Write to multiple users from a prepared file
(I2a*TBC,s5NY3^8j0# or a message input interactively
y/wZh%cV;_051Testing软件测试网v@@'p }.r"b/z3Q
if {$argc<2} {
*s.h,}\E9l0send_user "usage: $argv0 file user1 user2 ... "

`M)`
w/X'~~
^0exit
{
I*d'x9Gc0}

set nofile 051Testing软件测试网0SE+O%dm;v
# get filename via the Tcl lindex function51Testing软件测试网s:f;p{7EH.zs
set file [lindex $argv 0]
4f
\`z1U6d'R7TYb0if {$file=="i"} { 
\o5M%i3]5xt0set nofile 1 51Testing软件测试网)A|t\#\7q0xw1u
} else { 51Testing软件测试网"^7K8j%n"C
# make sure message file exists51Testing软件测试网,C{5[%A-@`
if {[file isfile $file]!=1} { 
/h#QYrX0send_user "$argv0: file $file not found. "
cO]1IA&pN7eA0exit }}

set procs {}51Testing软件测试网}O0AO`(kU"cx[
# start write processes51Testing软件测试网~L&L_w0cL)_
for {set i 1} {$i<$argc}51Testing软件测试网f,R6i\.nI~N
{incr i} {
5D6H.K$RPP)tC*t0spawn -noecho write 51Testing软件测试网.c'B1_%YVq2v#J0IS8wT]
[lindex $argv $i] 51Testing软件测试网{*xi;k1yE:WeA
lappend procs $spawn_id
\7RZ;OE`
Al0}

if {$nofile==0} {51Testing软件测试网jRc)zkH
setmesg [open "$file" "r"]
-P)n p7B$yQ+^)?G-[!@0q0} else {
+Pc3M}9P-VtL0send_user "enter message,
Lec$g0n!_0ending with ^D: " }

set timeout -1
	uCG!E7v'H0while 1 {
!NoL|3@8g0if {$nofile==0} {51Testing软件测试网
W%]}+?2F$s,C
if {[gets $mesg chars] == -1} break51Testing软件测试网o(i2]p5p
set line "$chars " 
Zi
l#g\_o0} else {51Testing软件测试网7q@d^Fd
expect_user {51Testing软件测试网p{`
Lt[7H$^
-re " " {}51Testing软件测试网7t8XS/AHv[l
eof break }51Testing软件测试网
Q/|Xqtou"jh
set line $expect_out(buffer) }

c3s+x7r3|:\1^
g
p*C0n0
'Gy\{9b0foreach spawn_id $procs { 
Y1b~ qm\0send $line }
]$O{4J/@)RH~&j8h4{0sleep 1}
O4[QU5Jj0exit