/ 
Mplayer-NowPlaying-0.034
River stage one • 1 direct dependent • 1 total dependent
++
/ Mplayer::NowPlaying

NAME

Mplayer::NowPlaying - query a running mplayer process for now playing metadata

SYNOPSIS

    use Mplayer::NowPlaying;

    my $log = "$ENV{HOME}/.mplayer/mplayer.log"; # or elsewhere

    my $current = now_playing($log, 'identify');

    if(exists($current->{artist})) {
      print "Current artist is $current->{artist}\n";
    }

DESCRIPTION

Mplayer::NowPlaying was born because the author runs mplayer daemonized, controlling it via named pipes. I wanted a simple way to retrieve various 'now playing' metadata for the currently playing media.

EXPORTS

None by default.

FUNCTIONS

now_playing()

Arguments: $logfile | $filehandle, [ $mode ]
Return value: \%metadata
  my %metadata = %{ now_playing($logfile, 'identify'); };
  my $artist = $metadata{artist};

now_playing() takes two arguments, the last one is optional:

* The logfile (or filehandle) output from mplayer is directed to

* 'normal' or 'identify' mode. Normal is the default.

MODES

NORMAL

Start mplayer in normal mode and redirect STDOUT to a file:

  mplayer *.mp3 > ./mplayer_log

Get the current title:

  # 'normal' argument optional; this is the default
  my $now_playing = now_playing("$ENV{HOME}/mplayer.log", 'normal');

  printf("Current title is %s\n", $now_playing->{title});

Mplayer produces a lot of output in normal mode, effectively making our metadata retrieval slow very fast (10 files played or so). Therefore it's really recommended to use identify mode, see below.

IDENTIFY

Start mplayer with the -identify switch:

  mplayer -identify *.mp3 > mplayer_log

or the preferred

  mplayer -quiet -msglevel all=0 -identify *.mp3 > mplayer_log

Get the current title:

  # note 'identify' argument
  my $now_playing = now_playing("$ENV{HOME}/mplayer.log", 'identify');

  printf("Current title is %s\n", $now_playing->{title});

By using -msglevel all=0 -identify the amount of output from mplayer is reduced to a minimum, making the retrieval very fast. This is recommended.

The hash will be filled with the available metadata for the current media. A typical result might look like:

  album    => "Me and Simon",
  artist   => "Laleh",
  audio    => 44100,
  bitrate  => 128000,
  channels => 2,
  chapters => 0,
  codec    => "mp3",
  demuxer  => "audio",
  file     => "~/Laleh-Me_and_Simon/01-big_city_love.mp3",
  format   => 85,
  genre    => 1,
  id       => 0,
  length   => "1288.00",
  seekable => 1,
  start    => "0.00",
  title    => "Big city love",
  year     => 2009

Possible keys include:

  title
  artist
  album
  year
  comment
  genre
  bitrate
  codec
  format
  id
  channels
  chapters
  audio
  demuxer
  length
  seekable,
  start
  file

now_playing_stream()

Arguments: $logfile | $filehandle
Return value: \%metadata

now_playing_stream() takes a single argument; the logfile (or filehandle) to be used.

If the stream being played supports ICY info, a hash reference will be returned with artist, album, title and ICY keys and their corresponding values, like so:

  artist => "Suzanne Vega",
  album  => "Retrospective: The Best of Suzanne Vega",
  title  => "Left of Center",,
  icy    => "Retrospective: The Best of Suzanne Vega - Suzanne Vega - Left of Center",

AUTHOR

  Magnus Woldrich
  CPAN ID: WOLDRICH
  m@japh.se
  http://japh.se

CONTRIBUTORS

None required yet.

COPYRIGHT

Copyright 2011 the Mplayer::NowPlaying "AUTHOR" and "CONTRIBUTORS" as listed above.

LICENSE

This library is free software; you may redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

Mplayer::NowPlaying::Genres