TCL/Expect读取配置文件内容

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