公司登入日誌伺服器要求先登上一個中間伺服器（即常說的跳板機）， 再通過中間伺服器登入到目標伺服器。 

這個過程操作麻煩， 主要有如下問題:

1.  登入中間伺服器需要賬號和密碼
2. 登入到中間伺服器之後， 需要通過ssh方式登入目標伺服器。
3. 登入目標伺服器之後需要cd到相應的日誌目錄下

整個過程比較複雜， 雖然中間伺服器是確定的， 但是線上伺服器往往有很多， 每次都自己去查詢相應的伺服器， 然後透過中間伺服器登入也是很麻煩的， 所以， 通過使用expect/tcl的方式， 整體出自動登入到目標伺服器的方式

整體思路是：

1. 將目標伺服器的樹狀結構寫到配置檔案中去
2. 將中間伺服器以及目標伺服器的賬號密碼也寫到配置檔案中
3. 登入伺服器時輸入相應的引數， 如專案名稱， 模組名稱， 機器序號等

首先需要解決的就是讀取配置檔案的問題， 由於bash下有很方便的awk和sed等命令， 在開始考慮過通過bash巢狀expect方式， 實際操作時， 發現登入到目標伺服器之後無法停留， 自動退出， 退出等待時間或長或短。因此最終考慮全部使用expect/tcl實現

首先分享一個使用expect/tcl讀取ini配置檔案的wiki：  點選開啟連結

接下來expect指令碼程式碼

#!/usr/bin/expect
 namespace eval cfg {
    variable version 1.0

    variable sections [list DEFAULT]

    variable cursection DEFAULT
    variable DEFAULT;   # DEFAULT section
 }

 proc cfg::sections {} {
    return $cfg::sections
 }
 

 proc cfg::variables {{section DEFAULT}} {
    return [array names ::cfg::$section]
 }

 proc cfg::add_section {str} {
    variable sections
    variable cursection

    set cursection [string trim $str \[\]]
    if {[lsearch -exact $sections $cursection] == -1} {
      lappend sections $cursection
      variable ::cfg::${cursection}
    }
 }

 proc cfg::setvar {varname value {section DEFAULT}} {
    variable sections
    if {[lsearch -exact $sections $section] == -1} {
      cfg::add_section $section
    }
    set ::cfg::${section}($varname) $value
 }

 proc cfg::getvar {varname {section DEFAULT}} {
    variable sections
    if {[lsearch -exact $sections $section] == -1} {
      error "No such section: $section"
    }
   return [set ::cfg::${section}($varname)]
 }


 proc cfg::parse_file {filename} {
    variable sections
    variable cursection
    set line_no 1
    set fd [open $filename r]
    while {![eof $fd]} {
        set line [string trim [gets $fd] " "]
        if {$line == ""} continue
        switch -regexp -- $line {
           ^#.* { }
           ^\\[.*\\]$ {
               cfg::add_section $line
           }
           .*=.* {
               set pair [split $line =]
               set name [string trim [lindex $pair 0] " "]
               set value [string trim [lindex $pair 1] " "]
               cfg::setvar $name $value $cursection
           } 
           default {
               error "Error parsing $filename (line: $line_no): $line"
           }
        }
        incr line_no
     }
     close $fd
 }


 set projectType [lindex $argv 0]
 set moduleType  [lindex $argv 1]
 set hostIndex   [lindex $argv 2]

 set configPath  config/config.ini
 cfg::parse_file $configPath
 set jump_host   $cfg::jump_server(host)
 set jump_port   $cfg::jump_server(port)
 set jump_user   $cfg::jump_server(username)
 set jump_pwd    $cfg::jump_server(password)
 set log_user    $cfg::log_server(username)
 set log_pwd     $cfg::log_server(password)
 set log_port    $cfg::log_server(port)

 set configPath  config/$projectType.ini
 cfg::parse_file $configPath
 set projectName $cfg::main(project_name)
 set moduleName [cfg::getvar module_name $moduleType]
 set host       [cfg::getvar host_$hostIndex $moduleType]

 set time -1
 spawn ssh -p $jump_port 
 
[email protected]$jump_host
 expect "[email protected]$jump_host's password:" {
 	send "$jump_pwd\r"
 }
 expect "$jump_user:~\\\$" {
 	send "ssh -p $log_port [email protected]$host\r"
 }
 expect "[email protected]$host's password:" {
 	send "$log_pwd\r"
 }
 expect "$log_user:~\\\$" {
 	send "cd /var/log/$projectName/$moduleName/logs\r"
 }
 interact
 

proc cfg相關的函式都是從tcl指令碼語言官方的config wiki上拷貝下來的， 具體使用詳見上面的連結

需要說明的是， 如果section是固定的，可以使用$cfg::SECTIONNAME(KEYNAME)的方式

如果section是變數， 則需要使用 [cfg::getvar key section]方式呼叫，

另外， expect的具體使用方式網上可以搜到很多， 這裡就不多說了

另外， 配個我這邊的配置檔案結構

第一張圖是通用配置， 第二張圖片是每個專案的配置， 一般可以考慮一個專案一個配置檔案， 根據專案簡稱找到專案的配置檔案， 讀取相應的模組配置即可