Audio::WMA (3pm)

    use Audio::WMA;

    my $wma  = Audio::WMA->new($file);

    my $info = $wma->info();

    foreach (keys %$info) {
      print "$_: $info->{$_}\n";
    }

    my $tags = $wma->tags();

    foreach (keys %$tags) {
      print "$_: $tags->{$_}\n";
    }

This module implements access to metadata contained in \s-1WMA\s0 files.

• new( $file ) Create a new Audio::WMA instance from the data in $file

• info( ) Get the audio data information in the form of a hash ref.

• tags( ) Get the metadata / tag information in the form of a hash ref.

• stream( ) Get the current \s-1ASF\s0 stream.

• parseObject( $asf ) Parse a standalone \s-1ASF\s0 object.

• setDebug( 0 | 1 ) Toggle debugging.

• setConvertTagsToUTF8( 0 | 1 ) Toggle Encoding metadata tags as \s-1UTF-8\s0 Toggle debugging.

Audio::FLAC::Header, <http://getid3.sf.net/>

http://github.com/dsully/perl-audio/tree/master/Audio-WMA

Dan Sully, <daniel | at | cpan.org>

Copyright 2003-2008 by Dan Sully & Logitech.

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