@@ -34,12 +34,31 @@ send_to_denon(fromhex("ff fa 18 00", "ff f0", # suboption end )); -expect_from_denon("BridgeCo AG Telnet server\x0a\x0d"); +# expect_from_denon("BridgeCo AG Telnet server\x0a\x0d"); -print "Reading...\n"; -my $buf; -while (sysread($sock, $buf, 300)) { - print "Read: [", printable($buf), "]\n"; +my $child = fork; +unless (defined($child)) { + die "Fork failure."; +} + +if ($child) { + # we're the parent process. accept input. + $| = 1; + while (1) { + print "DENON> "; + my $line = <STDIN>; + chomp $line; + if (!$line) { + next; + } + send_to_denon($line . "\x0d"); + } +} else { + # child process. + my $buf; + while (sysread($sock, $buf, 300)) { + print "Read: [", printable($buf), "]\n"; + } } sub expect_from_denon { denon.pl 3bca8ea8330420d299e1bdc984a862ad1af50af5 Brad Fitzpatrick brad@danga.com http://github.com/bradfitz/perl-denon-avr-4806/commit/8cbeb66a2279e55d1e11727c9caea5158ccd1edf 8cbeb66a2279e55d1e11727c9caea5158ccd1edf 2008-11-27T14:11:23-08:00 2008-11-27T14:11:23-08:00 input loop, reading in child process bbd781e0739c2b94fd551e34106bbf66db6b5954 Brad Fitzpatrick brad@danga.com