linux - 将 spawn 与 Expect 一起使用时僵尸 telnet 进程堆积

Question

我打算做一个telnet使用 Expect 连接网络设备，它涉及多次向设备发送命令并重新启动设备。因此我需要制作 telnet一次又一次的连接。

proc dputs {msg} {
    if {[info exists ::debug] && $::debug} {
        puts $msg
    }
}

proc open_telnet_session {} {
    set sResult FAIL 
    set prompt "(\r|\n|\r\n).*?(#|%|>|\\\$) $"
    #set prompt "#|%|>|\\\$ $"
    set timeout 60
    if {$::tcl_platform(platform) eq "windows"} {
        spawn {c:\Dinesh\telnet_32bit.exe} $::device_ip
    } else {
        spawn telnet $::device_ip
    }
    set ::device_ip $spawn_id
    expect {
        timeout {puts "Timeout happened while spawning telnet session";return $sResult}
        eof     {puts "EOF happened while spawning telnet session";return $sResult}
        "login: $" {send "$::device_uname\r";exp_continue}
        "password: $" {send "$::device_pwd\r";exp_continue}
        -re $prompt 
    }
    set sResult PASS 
    return $sResult
}


proc send_cmd_to_device {cmd} {
    set timeout 180
    dputs "cmd : $cmd"
    set sResult FAIL 
    set prompt "(\r|\n|\r\n).*?(#|%|>|\\\$) $"
    set ::spawn_id $::device_ip

    if {[catch {send "$cmd\r"} errorMsg]} {
        puts "Failed to send the commands..."
        puts "Reason : $errorMsg"
        return $sResult 
    }
    expect {
        timeout {puts "Timeout happened while sending commands to telnet session";return 0}
        eof     {puts "EOF happened while sending commands to telnet session";return 1}
        "invalid token" {puts "Invalid token error from device";exp_continue}
        "$cmd" { dputs "\n\n matching the cmd\n\n";set ::actual_cmd_match 1;exp_continue}
        -re $prompt {
            if {$::actual_cmd_match} {
                dputs "\n\n final prompt match \n\n"
                set ::actual_cmd_match 0
                set sResult PASS 
            } else {
                dputs "\n\n still waiting for prompt match \n\n"
                exp_continue
            }
        }
    }
    return $sResult
}
proc close_telnet_session {} {
    set sResult FAIL 
    set ::spawn_id $::device_ip
    #This will send 'Ctrl+]' to close the telnet connection gracefully
    if {[catch {send "\x1d"} errorMsg]} {
        puts "Failed to send the commands..."
        puts "Reason : $errorMsg"
        return $sResult 
    }
    expect { 
        timeout {return $sResult}
        eof {return $sResult}
        -nocase "telnet>"
    }
    if {[catch {send "quit\r"}]} {
        puts "Failed to send the commands..."
        puts "Reason : $errorMsg"
        return $sResult 
    }
    expect {
        timeout {return $sResult}
        eof {set sResult PASS}
    }
    return $sResult
}

即使我正在正常关闭连接，我仍然可以在任务管理器中看到正在运行的进程(在 Windows 7 中)。 (与 Linux 的情况相同，telnet 进程显示为 <defunct> 进程)。

如果我整夜运行脚本并说我必须打开 telnet连接大约数千次(因为我的脚本涉及多次重启设备，因此管理连接将丢失)，最终会降低性能。

如果连续发生，会导致内存泄漏或资源分配失败。

经过大量搜索，我最终找到了 exp_close和 exp_wait .

# Killing the process in Windows...
exec taskkill /pid $telnet_process_id
exp_close -i $::device_id 
exp_wait -i $::device_id; # This becomes a blocking call..

使用上面的代码，exp_wait一直在等待，它在那里被阻塞了。

为了避免同样的情况，我使用了 -nowait旗帜也是如此，但仍然没有用。马上返回，过程还在流程图中。

处理此问题的最佳方法应该是什么？

Answer 1

根据我的经验，生成的进程连接通常会通过调用 close 来终止。 .在这方面，windows 上的 expect 与 *nix 上的 expect 不同吗？