The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

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.