File: udp.client

package info (click to toggle)
jimtcl 0.81%2Bdfsg0-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 15,416 kB
  • sloc: ansic: 175,569; tcl: 5,456; sh: 4,814; cpp: 1,671; makefile: 269
file content (28 lines) | stat: -rw-r--r-- 607 bytes parent folder | download | duplicates (15)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
# Example of sending from an unconnected socket

set s [socket dgram]

foreach i [range 1 5] {
	# Specify the address and port with sendto
	$s sendto "$i + $i + 10" 127.0.0.1:20000

	# Receive the response - max length of 100
	puts [$s recvfrom 100]
}

$s close

# Now sending via a connected udp socket

set s [socket dgram 127.0.0.1:20000]
$s buffering none

foreach i [range 5 10] {
	# Socket is connected, so can just use puts here
	# No need to flush because we set 'buffering none' above.
	$s puts -nonewline "$i * $i"
	#$s flush

	# Receive the response - max length of 100
	puts [$s recvfrom 100]
}