Zombie telnet 进程在与 Expect 一起使用 spawn 时堆积答案

【问题标题】：Zombie telnet process pile up while using spawn with ExpectZombie telnet 进程在与 Expect 一起使用 spawn 时堆积
【发布时间】：2016-08-01 23:11:12
【问题描述】：

我打算使用Expect 与网络设备建立telnet 连接，这涉及多次向设备发送命令并重启设备。因此，我需要一次又一次地建立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 标志，但仍然没有用。它立即返回，过程仍停留在流程图中。

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

【问题讨论】：

在看到eof 后，您会使用exp_close。你可能想看看为什么你的close_telnet_session proc 会超时。
@glennjackman ：使用exp_close，我最终得到spawn_id: spawn id exp4 not open 错误消息，因为Expect 已经从远程登录进程中观察到eof。顺便说一句，我在close_telnet_session 中添加了timeout 处理程序，只是为了防故障情况。不是我收到timeout，而是一种预防措施。

标签： linux process tcl expect telnet

【解决方案1】：

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

【讨论】：

close 也不起作用，这种行为在 Windows 和 Linux 系统中很常见。