NAME¶

Audio::WMA - Perl extension for reading WMA/ASF Metadata

SYNOPSIS¶

    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";
    }

DESCRIPTION¶

This module implements access to metadata contained in WMA files.

METHODS¶

•

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 ASF stream.

•

parseObject( $asf )

Parse a standalone ASF object.

•

setDebug( 0 | 1 )

Toggle debugging.

•

setConvertTagsToUTF8( 0 | 1 )

Toggle Encoding metadata tags as UTF-8

Toggle debugging.

SEE ALSO¶

Audio::FLAC::Header, <http://getid3.sf.net/> http://github.com/dsully/perl-audio/tree/master/Audio-WMA

AUTHOR¶

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

COPYRIGHT AND LICENSE¶

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.