Mega Code Archive

 

Categories / Perl / Network

 

UDP inet client

#!/usr/bin/perl  use warnings; use strict; use Socket; my $proto = getprotobyname('udp'); my $host  = inet_aton('localhost'); my $port  = 4444; socket CLIENT, PF_INET, SOCK_DGRAM, $proto or die "Unable to create socket: $!"; my $servaddr = sockaddr_in($port, $host); send CLIENT, "Hello from client", 0, $servaddr or die "Send: $!\n"; my $message; recv CLIENT, $message, 1024, 0; print "Response was: $message\n";