Hello,
I need to send some binary data over a socket. The data is samples taken at 11025Hz, and it needs to be sent at that speed (16bits/sample, so we can work out how many bytes to send per second easily). Is this a solved problem? If not, how should I approach solving it?
At present, I just print to a socket.
#!/usr/bin/env perl
# Reads in some bytes, and stuffs them into a socket.
use strict;
use warnings;
#use diagnostics;
use IO::Handle;
use autodie;
use Socket;
my $host = 'localhost';
my $port = 7000;
my $iaddr = inet_aton($host) or die "No host: $host";
my $paddr = sockaddr_in($port, $iaddr);
my $proto = getprotobyname('tcp');
socket(Server, PF_INET, SOCK_STREAM, $proto) or die "socket: $!";
setsockopt(Server, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) or die "set
+sockopt: $!";
bind(Server, $paddr) or die "bind: $!";
listen(Server, SOMAXCONN) or die "listen: $!";
$SIG{CHLD} = \&REAPER; # wtf?
my $data = do { open my $in, '<', '11k16bit.pcm'; local $/; <$in> };
STDOUT->autoflush(1);
for ( ; $paddr = accept(Client, Server); eval{print "disconnecting\n";
+ close Client}) {
my($port, $iaddr) = sockaddr_in($paddr);
my $name = gethostbyaddr($iaddr, AF_INET);
print "Client is $name...";
print Client $data;
print " done\n";
}
(I'd also welcome help writing this with IO::Socket or whatever you consider more modern. This is mostly cargo culting...)