---
name: "Audio::WMA"
section: "3pm"
platform: "linux"
package: "libaudio-wma-perl"
version: "1.3-3"
release: "Debian 13 (Trixie)"
platforms: ["linux"]
url: "https://new.carta.tech/Audio::WMA"
---

# Audio::WMA(3pm)

Perl extension for reading WMA/ASF Metadata

## 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.