From havoc at harrisdev.com  Tue Apr  8 20:13:15 2008
From: havoc at harrisdev.com (Jody Harris)
Date: Tue, 8 Apr 2008 21:13:15 -0600
Subject: [ABQ-pm] input/output from filehandle
Message-ID: <cb07983e0804082013p5e274f3fx116dea3784c73ee0@mail.gmail.com>

I'm trying to get some information from mplayer's -slave mode.

I can start mplayer in slave mode with perl, but how do I send it
commands and get information back?

Sending the info to the filehandle is easy enough, but how do I read
the response?

here's the (broken, mid-hack) scriptlet so far:


#!/usr/bin/perl -w
use strict;

$|++;

$SIG{INT} = sub { &close_it_up };
$SIG{PIPE} = 'IGNORE';

my $mp3_in = shift || die "usage: $0 path/to/file.mp3\n"; #mp3 to play
from command line

my $pid;
my @options = (  '-slave',
                 '-really-quiet',
               );

##############################################################
my $pos; # time position in file....
my $i; # counter
print "$mp3_in\n";
$pid = open(MP, "| mplayer @options  '$mp3_in' >/dev/null 2>&1 ");
print "pid = $pid\n";
for ($i=0; $i<20; $i++) {
  # $pos = syswrite(MP, "get_time_pos\n");
  print MP "get_time_pos\n";
  # print "$pos\n";
  sleep(1);
}
syswrite(MP, "quit\n");


The syswrite to quite works fine, but the syswrite to get the time
position doesn't return anything useful. Printing to the filehandle
was just a test.

thanks for any help in advance.

jody
-- 
http://www.opendiscipleship.org/
http://www.RealizationSystems.com/ -- start communicating
http://www.GalacticSlacker.com/ -- read it and weep