2

我的设置中有一个 python 服务器和一个 TCL 客户端，它们都使用端口 8020 在同一台机器上运行。

我基本上在python服务器中实现了一些功能来执行一些操作。

我正在尝试在 python 服务器中添加一些异常处理，尤其是当 TCL 客户端尝试在 python 中调用一些尚不可用的函数时。python 服务器应该提醒 TCL 客户端该功能尚不可用。

我在下面复制粘贴了我的代码：-

Python 服务器代码

import socket
import sys
import os

DUT_Browser = ""
host = 'localhost'
port = 8020
print 'Current working Directory:',os.getcwd()


def LogError(message):
    try:
        logfile = open("log.txt", "a")
        try:
            logfile.write(message)
        finally:
            logfile.close()
    except IOError:
        pass

def GetParam(sParams, i):
    params = sParams.split(",")
    p = params[i].strip()
    p = p.strip("\"")

    return p

def Login(sParams):
    print "In method Login with parameters:", sParams

    return 0


def ExecuteKeyword(sCommand):
    vals = sCommand.partition("(")
    sKeyword = vals[0].strip()
    sParams = vals[2].strip()
    # Remove the trailing ")" from the parameters string
    sParams = sParams[:-1]
    #print "KEYWORD: ", sKeyword, "PARAMETERS: ", sParams
    func = getattr(sys.modules[__name__],sKeyword)
    failed = 1
    failed=func(sParams)
    if failed:
        return 1
    else:
        return 0

def clientthread(conn):
    while True:
        keyword = conn.recv(1024)
        errorMsg = 'none'
        failed = 1
        try:
           failed=ExecuteKeyword(keyword)
        except (Exception, FindFailed), err:
        #except Exception, err:
            errorMsg=str(err)
            LogError(errorMsg)
        if failed:
            reply = 'FAIL START' + errorMsg + 'FAIL END'
            print 'ERROR MSG:',reply
        else:
            reply = 'PASS: ' + keyword
        if not keyword:
           break
        print 'SERVER REPLY',reply
        conn.sendall(reply)
        print 'SERVER REPLY SENT'
    conn.close()

sdServer = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
print 'TCP (SOCK_STREAM) Socket created'

try:
    sdServer.bind((host, port))
except socket.error , msg:
    print 'Bind failed. Error Code : ' + str(msg[0]) + ' Message ' + msg[1]
    sys.exit()

print 'Socket bind to port:',port,'on host:',host,'is complete'

#Start listening on socket
sdServer.listen(10)
print 'Socket now listening for 10 connections'
while 1:
    #wait to accept a connection - blocking call
    conn, addr = sdServer.accept()
    print 'Connected with ' + addr[0] + ':' + str(addr[1])
    #try:
    clientthread(conn)
    #except socket.error , err:
    #    print str(err)

sdServer.close()

TCL客户端代码

set port 8020
set host localhost
set ntoIP "http://10.218.164.58/"
set sdClient [socket $host $port]
fconfigure $sdClient -buffering line
set ntoGuiCmd start
while {$ntoGuiCmd != "end"} {
    puts "Enter some command for $sdClient"
    set ntoGuiCmd [gets stdin]
    puts $sdClient $ntoGuiCmd
    if {[eof $sdClient]} {close $sdClient}
    gets $sdClient serverMessage
    puts "From Server : $serverMessage"
}

当我从客户端输入以下命令时，它会传递并按预期运行，并打印来自服务器的消息。

Login("10.218.164.58",admin,admin,\"FALSE\")

但是，当我使用以下尚未实现的命令时，客户端只是挂起并且不打印来自服务器的异常，表明它尚未实现。

Logout("10.218.164.58")

我什至尝试使用wireshark并注意到服务器确实发送了消息，而且TCL客户端似乎也发送了一个ACK作为响应。所以不太确定为什么“gets”应该挂起。

4

1 回答 1

1

我不太确定出了什么问题，但我怀疑问题出在 Tcl 代码中。可能存在许多问题（是否有换行符被传回？）但关键是代码实际上并不是特别惯用的。这是一个更惯用的版本：

set port 8020
set host localhost
set sdClient [socket $host $port]
fconfigure $sdClient -buffering line
while true {
    puts "Enter some command for $sdClient"
    gets stdin ntoGuiCmd
    if {[eof stdin] || $ntoGuiCmd eq "end"} {
        break
    }
    if {[catch {puts $sdClient $ntoGuiCmd}]} {
        break
    }
    ### Replacement discussed below starts here
    gets $sdClient serverMessage
    if {[eof $sdClient]} {
        break
    }
    puts "From Server: $serverMessage"
    # If multiline messages are possible, extra work is required here!
    ### Replacement ends here
}
close $sdClient

如果您有多行响应，则需要更加小心。最好的方法是读取它们，直到您知道您已经到达响应的末尾（例如，因为服务器告诉您字节数或行数），但这并不总是可能的。如果您假设响应始终适合单个数据包，则可以使用它来读取可用的行（它通过在有未读字节时以非阻塞模式从套接字读取来工作）：

fconfigure $sdClient -blocking 0
while {[gets $sdClient serverMessage] >= 0} {
    puts "From Server: $serverMessage"
}
fconfigure $sdClient -blocking 1
if {[eof $sdClient]} {
    break
}

如果响应足够大（取决于操作系统缓冲区等），那么它不会被写入一个数据包。那时您确实需要在消息传递协议中明确标记响应结束的位置。（在相反的方向上也是如此，除了大请求会导致问题。）

如果这都是我自己的代码，我会很想做一个完全异步的非阻塞客户端：

proc transfer {from to} {
    if {[gets $from line] >= 0} {
        puts $to $line
    } elseif {[eof $from]} {
        exit
    }
}

set sock [socket "localhost" 8020]
fconfigure stdin -blocking 0
fconfigure $sock -blocking 0
fileevent stdin readable [list transfer stdin $sock]
fileevent $sock readable [list transfer $sock stdout]
vwait forever

然而，这是一种非常不同的客户端风格（并且不容易包装到前端 API 中）。

于 2013-03-14T21:42:49.240 回答