use Perl

• How about something like this (Score:1)

  by link (3402)

  use IO::File;
  $now = IO::File->new(">>.now");
  $now->autoflush(1);
  open( MP , "mplayer *.mp3 -shuffle 2>/dev/null |");
  
  while(<MP>)
  {
      if(/Playing/)
      {
          print NOW $_;
      }
  };
  • Re:How about something like this (Score:1)

    by cog (4665)

    With some minor twitching (print $now), it works :-) Thanks :-)
  • Re:How about something like this (Score:1)

    by link (3402)

    Actually that doesn't work but this does( must learn to test before posting)
    

    use IO::File;
    
    open(NOW,">>.now");
    autoflush NOW 1;
    
    open( MP , "mplayer *.mp3 -shuffle 2>/dev/null |");
    
    while(<MP>)
    {
        if(/Playing/)
        {
            print NOW $_;
        }
    }
• mprand (Score:1)

  by rjbs (4671)

  If you wanted to use mpg123, and were willing to live with overkill, you could use this, with a bit of file IO added. I only mention it because it's only two days old and still in my head...
  
  http://rjbs.manxome.org/hacks/perl/mprand

  --
  rjbs