in reply to Re^2: UDP Packet Encoding
in thread UDP Packet Encoding
#!/usr/bin/perl use IO::Socket::INET; $| = 1; my ($socket,$received_data,$peeraddress,$peerport); $socket = new IO::Socket::INET (LocalPort => '26',Proto => 'udp') or d +ie "ERROR in Socket Creation : $!\n"; while(1) { $socket->recv($recieved_data,1024); $peer_address = $socket->peerhost(); $peer_port = $socket->peerport(); print "\n($peer_address, $peer_port) said : $recieved_data"; $data = "data from server\n"; print $socket "$data"; } $socket->close();
0000000 0583 3112 7900 0197 0101 0002 4e01 e6c6 0000010 00fc 0000 0000 0000 0000 0000 0000 0000 0000020 0000 0000 0000 0000 022c ffd0 2fcd 0f00 0000030 0208 0019 0000 0000035
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^4: UDP Packet Encoding
by mbethke (Hermit) on Nov 22, 2011 at 08:52 UTC |