Audio::WMA(3) 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.

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.