config.xml配置文件如下：------------------------------------------------

name=tester ;#用户名

password=vmkid ;#密码

common.exp脚本如下：---------------------------------------------------

#!/usr/bin/expect

proc getConfig {configFile Key {Comment "#"} {Equal "="}} { ;#过程中如果参数有缺省值，使用花括号引起，并赋值

set Value "" ;# 记录过程返回的值

# 打开配置文件

set err [catch {set fileid [open $configFile r]} errMsg]

if {$err == 1} {

puts "errMsg : $errMsg"

return $Value

}

# 成功打开文件后, 一行一行的加以分析

set rowid 0 ;#记录当前行数,程序调试时打印调试信息使用的

while {[eof $fileid] != 1} { ;# 读取文件内容

incr rowid ;# 记录行数, 从一开始

gets $fileid line ;# 读出一行

# 先去掉注释, 再去掉两端的空格

set commentpos [string first $Comment $line] ;# 得到注释符号的位置

if { $commentpos != 0 } {

# 行以注释符号开头，忽略掉该行

} else {

if { $commentpos != -1 } { ;# 行中有注释符号,去掉注释

set line [string range $line 0 [expr $commentpos-1]]

}

set line [string trim $line] ;# 去掉两端的空格

# puts "$rowid : line : $line"

# 如果是空就继续循环

if { $line == "" } {

continue

} else {

set equalpos [string first $Equal $line] ;# 得到等号的位置

if { $equalpos != -1} {

# 如果就是找寻的key,结束循环

if { [string range $line 0 [expr $equalpos - 1]] == $Key } {

set Value [string range $line [expr $equalpos + 1] [string length $line]]

break

}

}

}

}

}

# 关闭文件

close $fileid

#返回值

return $Value

}

set val [getConfig "config.xml" "password"]

puts "---------val: $val"

exit

expect eof

分享到：

2011-03-12 18:04

浏览 6554

评论