expect的基本用法

#!/usr/bin/expect
dX*G#E
Nu
f0# Change a login shell to tcsh
t,W,S#}'S7PbL^6x0

D)o"E
|c_IJ0set user [lindex $argv 0]51Testing软件测试网eg!z2F'T'?T
spawn chsh $user51Testing软件测试网O,N6Dy(A7^{
Gv1AeV
expect "]:"
rK2b!r0[C.a0send "/bin/tcsh " 51Testing软件测试网[t5SPk bhaK
expect eof
9S7ddV1Y0exit

expect -re "\[(.*)]:"
.l&f&_i	G(x0if {$expect_out(1,string)!="/bin/tcsh"} {51Testing软件测试网K9KH
sY9s
send "/bin/tcsh" }51Testing软件测试网r	^fJ]qL
send " "51Testing软件测试网c*Pc:v1T!A T)~
expect eof

#!/usr/bin/expect
@
BU	~+|)Vok0# Prompt function with timeout and default.
1X(C%B1oqU5N0set prompt [lindex $argv 0]51Testing软件测试网8p6g"ZH$m:u"h
set def [lindex $argv 1] 
t,i,jd2m)wT.r0set response $def51Testing软件测试网7gW(O6K,DXO
set tout [lindex $argv 2]

send_tty "$prompt: "
R
g	NP
}I0set timeout $tout51Testing软件测试网u'LaBf
expect " " {
p/Q'x8e:|[p-Ca0set raw $expect_out(buffer)
y/q
L3Qe
d'|0# remove final carriage return51Testing软件测试网/qGG%c	i:\:Z
set response [string trimright "$raw" " "]
$J3j2N9V{0}
	CXlA8Gt9Tj0if {"$response" == "} {set response $def}
%p6`-{*V+|Vh0send "$response "
i"{(f
KW0# Prompt function with timeout and default.
1e3S/p:l'q+z4S1F0set prompt [lindex $argv 0]
k	Xl
g6LQ@YF0set def [lindex $argv 1] 
6WqpP\"Y8Q\I0set response $def51Testing软件测试网B7T	m9z'O0Iy7c
set tout [lindex $argv 2]

#!/usr/bin/expect51Testing软件测试网#Z/E
|.Uw&DTV%f*xhQ
# Write to multiple users from a prepared file
f4\Y?*t8FV0# or a message input interactively
.Wn#s%ixv^2V0
Y
Y/A
~L0if {$argc<2} {51Testing软件测试网PvJM.|/x
send_user "usage: $argv0 file user1 user2 ... "
	L1t-L
C,]+R N0exit51Testing软件测试网h/VP
_$P6i&J
}

set nofile 0
-bsaD6sr#|ob
@0# get filename via the Tcl lindex function
E,yEK_;s0_#qYb
J0set file [lindex $argv 0]51Testing软件测试网SO:rf7g
if {$file=="i"} { 51Testing软件测试网7_$?2m%[-H&B2E
c:Y*E
set nofile 1 
8ZKR iJs
ix'F0} else { 
`7x4?)UuUV0# make sure message file exists51Testing软件测试网m$v9l
[
~-V(Pq'h0bZ
if {[file isfile $file]!=1} { 
`5v.pS(DcrC0send_user "$argv0: file $file not found. "
&]7d
Y9d(XDK0exit }}

set procs {}51Testing软件测试网PR?7Tp!R/j*O
# start write processes
[h*Z#aO9nX0for {set i 1} {$i<$argc}51Testing软件测试网9F
jx
ke;?uC	f
{incr i} {
+O;Ml"o$?9s7s7h0spawn -noecho write 51Testing软件测试网B7BS/l"wm:|h
[lindex $argv $i] 
3mR4A$Mg
i0lappend procs $spawn_id
yi~@
Mx8w!C0}

if {$nofile==0} {51Testing软件测试网$l)~.x!^B)f
setmesg [open "$file" "r"]
W(A&T~
A-AH0} else {
s0s'E!y-x3E9f*gB0send_user "enter message,
}
fDGL|2D9p0ending with ^D: " }

set timeout -151Testing软件测试网8K.D
X,kxl$i
while 1 {51Testing软件测试网'_'y`C(E
if {$nofile==0} {
R/_;XLK*wy9}0if {[gets $mesg chars] == -1} break51Testing软件测试网v4[	mt r0C
TL#tc
set line "$chars " 
Y;C#p2op$Z*w
sg0} else {51Testing软件测试网1L#cYlXl%NI
|
expect_user {51Testing软件测试网r"Yr
s"sY&c}v
-re " " {}
\bS#QE
`0eof break }51Testing软件测试网4G.bPZ)~k
set line $expect_out(buffer) }
#[MW#rM"ww.K0
JD:GZbC6vM1Y8h0foreach spawn_id $procs { 
c`*] ^k(iB;i(D0send $line }51Testing软件测试网J(_	J!t0nF
sleep 1}51Testing软件测试网/?p
g4g"|~#w&do3W@
exit