天天看點

socket client with proc

Server:

set socket ""

proc acceptSocketConnection { a_sock an_addr a_port } {

       global socket

       set socket $a_sock

        fconfigure $socket -buffering line -translation lf -blocking 0 -buffersize 72000

        fileevent $socket readable processMessage

        set ready 1

        set datestamp 20110901

 if { ![regexp -nocase windows $::tcl_platform(os)] } {

 set l_genfile [file join [pwd] "strubio_${datestamp}.gen"]

 puts $socket "GEN $l_genfile"

 set l_matfile [file join [pwd] "strubio_${datestamp}.mat"]

 puts $socket "NEW $l_matfile"

   }

}

proc processMessage { } {

    global socket

    gets $socket l_message

    if {$l_message != ""} {

       puts $l_message

       }

set server [socket -server acceptSocketConnection -myaddr 127.0.0.1 2200]

vwait forever

Client:

繼續閱讀