udpliteclient.pl

来自「udp-lite for upd lite linux kernel」· PL 代码 · 共 29 行

#!/usr/bin/perl

# A simple Perl UDP-Lite client which connects to the IP address 
# given on the commandline, using the fixed port `$PORTNO'. 
# Terminate via CTRL-D.

use Socket;
$PORTNO = 2000;      # fixed port number to connect to 
$cscov  = 8;         # checksum coverage (default header)

die "usage: $0 <server-IP>\n" unless @ARGV;

$ipaddr   = inet_aton($ARGV[0]);
$portaddr = sockaddr_in($PORTNO, $ipaddr);
$proto    = getprotobyname("udplite") || 136;

socket(SOCKET, PF_INET, SOCK_DGRAM, $proto) or die "socket: $!";

# since it is unlikely that the Perl module has translated
# /usr/include/netinet/udplite.h, we use the corresponding numbers:
#define UDPLITE_SEND_CSCOV 10   /* Actual coverage length      */
#define UDPLITE_RECV_CSCOV 11   /* Minimum acceptable coverage */
setsockopt(SOCKET, $proto, 10, $cscov) or die "setsockopt: $!";

while(<STDIN>) {
 send(SOCKET, $_, 0, $portaddr) == length($_) 
	 or die "cannot send to $ipaddr#$PORTNO: $!\n";
}