14 lines
338 B
Plaintext
14 lines
338 B
Plaintext
# Example of sending via a connected udp socket
|
|
|
|
set s [socket dgram 127.0.0.1:20000]
|
|
|
|
foreach i [range 1 20] {
|
|
# Socket is connected, so can just use puts here
|
|
# But remember to flush to ensure that each message is separate
|
|
$s puts -nonewline "$i * $i"
|
|
$s flush
|
|
|
|
# Receive the response - max length of 100
|
|
puts [$s recvfrom 100]
|
|
}
|