UDP inet client : UDP « Network « Perl

1. Perl
2. Network
3. UDP

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";

   
    
    
  

Related examples in the same category