如何解決 '派：重生ID EXP4不開，而執行 「exp_send -s 」$ CMD \ R「」' 錯誤

Question

我的TCL文件中有這樣的代碼下面，

proc executeCmd {cmd {file ""}} { 
    set out "" 
    set output "" 
    set send_slow {20 0.1} 
    set adminFlag 0 
    exp_send -s "$cmd\r" 
    for {set i1 0} {$i1 < 12} {incr i} { 
      set intimeout 0 
      expect { 
        # other options to check 'hostname', 'more', 'press any to continue' regexes 
        # ... 
        -regexp {^(.*)Press any key to continue.*$} { 
         set output [cleanOutput $expect_out(buffer)] 
         if {[regexp -- {\w+} $file]} { 
          append out $output 
          flush $fo 
          flush $clf 
         } else { 
          append out $output 
         } 
         exp_sleep 0.1 
         exp_send -s " " 
         exp_continue 
        } 

        timeout { 
          #log_msg INFO "TIMED OUT...." 
          puts "TIMED OUT" 
          set intimeout 1 
          puts "Executing $cmd >>> waiting for response from $hostname" 
        } 
      } 
      if {$intimeout} { 
        exp_send -s " " 
      } else { 
        break 
      } 
    } 
    return $out 
} 

spawn $plinkLoc -telnet $routerIP -P $routerPort 
set out [executeCmd "term width 0"] 

通過命令執行這個TCL之後提示我面對錯誤的說法，

send: spawn id exp4 not open 
    while executing 
"exp_send -s "$cmd\r"" 
    (procedure "executeCmd" line 28) 
    invoked from within 
"executeCmd "term width 0"" 
    invoked from within 
"set out [executeCmd "term width 0"]"" 

這在TCL行代碼28「設置」聲明這是之前「executeCmd」 PROC，已經更新了查詢目的的文件。

Answer 1

您必須將spawn_id傳遞給過程，或聲明spawn_id爲global。

添加此行內部程序

global spawn_id