Free audio m4p software for linux

Audio::M4P is a Perl module that provides M4P/MP4/M4A QuickTime audio music format modules.

M4P is a QuickTime protected audio file format.

SYNOPSIS

use Audio::M4P::QuickTime;

my $mp4file = "file.m4p";
my $qt = new Audio::M4P::QuickTime(file => $mp4file);
my $tags = $qt->GetMetaInfo;
print "Artist is $tags->{ARTIST}n" if $tags->{ARTIST};


use Audio::M4P::Decrypt;

my $outfile = mydecodedfile;
my $deDRMS = new Audio::M4P::Decrypt;
$deDRMS->DeDRMS($mp4file, $outfile);

See also the individual pod documentation for Audio::M4P::QuickTime
and Audio::M4P::Decrypt.

Audio::M4P::Atom is an M4P/MP4/M4A QuickTime audio music format atoms.

M4P is a QuickTime protected audio file format. It is composed of a linear stream of bytes which are segmented into units called atoms.

Some atoms may contain other atoms. This module has methods for handling atoms which are delegated by the QuickTime and other modules in the Audio::M4P hierarchy.

Audio::MPD is a class for talking to MPD (Music Player Daemon) servers.

SYNOPSIS

use Audio::MPD;

my $mpd = new Audio::MPD();
$mpd->play();
sleep 10;
$mpd->next();

Audio::MPD gives a clear object-oriented interface for talking to and controlling MPD (Music Player Daemon) servers. A connection to the MPD server is established as soon as a new Audio::MPD object is created. Commands are then send to the server as the classs methods are called.

Audio::Ao is a Perl wrapper for the Ao audio library.

SYNOPSIS

use Audio::Ao qw(:all);

initialize_ao;
my $device = open_live(default_driver_id(), 16, $rate, $channels,
is_big_endian(), {});
while (#have data) {
play($device, $data_buffer, $len_of_buffer);
}
close_ao($device($device));
shutdown_ao;

Provides access to Libao, "a cross-platform library that allows programs to output PCM audio data to the native audio devices on a wide variety of platforms." Libao currently supports OSS, ESD, ALSA, Sun audio, and aRts.

Audio::Mad is a Perl interface to the mad MPEG decoder library.

SYNOPSIS

use Audio::Mad qw(:all);

my $stream = new Audio::Mad::Stream();
my $frame = new Audio::Mad::Frame();
my $synth = new Audio::Mad::Synth();
my $timer = new Audio::Mad::Timer();
my $resample = new Audio::Mad::Resample(44100, 22050);
my $dither = new Audio::Mad::Dither();

my $buffer = join(, );
$stream->buffer($buffer);

FRAME: {
if ($frame->decode($stream) == -1) {
last FRAME unless ($stream->err_ok());

warn "decoding error: " . $stream->error();
next FRAME;
}

$synth->synth($frame);
my $pcm = $dither->dither($resample->resample($synth->samples()));

print $pcm;
next FRAME;
}

This module is an attempt to provide a perl interface to the MAD (MPEG Audio Decoder) library, written by Robert Leslie. It has been designed to be 100% object oriented, and to follow the MAD interface as closely as possible.

So far, most of the MAD library, plus two companion modules are provided as part of the interface. Seperate documentation is provided in perldoc for all of the modules in the Audio::Mad framework.

Audio::RaveMP is a Perl interface to Sensory Science RaveMP player.

SYNOPSIS

use Audio::RaveMP ();

The Audio::RaveMP module provides a Perl interface to the Sensory Science RaveMP player.

METHODS

new

my $rmp = Audio::RaveMP->new;

permitted

Check parallel port permissions (must be root at the moment):

unless ($rmp->permitted) {
print "$!n";
exit 1;
}
is_ready

Check that RaveMP is connected and powered up:

unless ($rmp->is_ready) {
print "Device is not ready (not connected or powered up?)n";
exit 2;
}
show_status

Show status messages:

$rmp->show_status(1);

$rmp->show_status(0);

upload

Upload a file. The second argument is the name to upload to, which is optional and defaults to the upload name:
unless ($rmp->upload("we_eat_rhythm.mp3")) {
print "upload failedn";
}

unless ($rmp->upload("we_eat_rhythm.mp3", "We Eat Rhythm")) {
print "upload failedn";
}
remove
Remove a file specified by the give slot number:
unless ($rmp->remove(8)) {
print "unable to remove file at slot 8n";
}
download
Download the file specified by the give slot number. The last argument is the name of the destination file, which is optional and defaults to the name of the downloaded file:
unless ($rmp->download("we_eat_rhythm.mp3")) {
print "download failedn";
}

unless ($rmp->download("We Eat Rhythm", "we_eat_rhythm.mp3")) {
print "download failedn";
}
contents
Return an array reference of file contents in the player. Each element is an object blessed into the Audio::RaveMPSlot class:
my $contents = $rmp->contents;
for my $slot (@$contents) {
printf "%d, %s -> %sn",
$slot->number, $slot->type, $slot->filename;
}

Audio::DSP is a Perl interface to *NIX digital audio device.

SYNOPSIS

use Audio::DSP;

($buf, $chan, $fmt, $rate) = (4096, 1, 8, 8192);

$dsp = new Audio::DSP(buffer => $buf,
channels => $chan,
format => $fmt,
rate => $rate);

$seconds = 5;
$length = ($chan * $fmt * $rate * $seconds) / 8;

$dsp->init() || die $dsp->errstr();

# Record 5 seconds of sound
for (my $i = 0; $i < $length; $i += $buf) {
$dsp->read() || die $dsp->errstr();
}

# Play it back
for (;;) {
$dsp->write() || last;
}

$dsp->close();

Audio::DSP is built around the OSS (Open Sound System) API and allows perl to interface with a digital audio device. It provides, among other things, an initialization method which opens and handles ioctl messaging on the audio device file. Audio::DSP also provides some rudimentary methods for the storage and manipulation of audio data in memory.

In order to use Audio::DSP, youll need to have the necessary OSS drivers/libraries installed. OSS is available for many popular Unices, and a GPLed version (with which this extension was initially developed and tested) is distributed with with the Linux kernel.

Audio:PSID is a Perl module to handle SID files (Commodore-64 music files).

SYNOPSIS

use Audio::SID;

$mySID = new Audio::SID(-filename => Test.sid) or die "Whoops!";

print "Title = " . $mySID->get(title) . "n";

print "MD5 = " . $mySID->getMD5();

$mySID->set(author => LaLa,
title => Test2,
released => 2001 Hungarian Music Crew);

$mySID->validate();
$mySID->write(-filename => Test2.sid) or die "Couldnt write file!";

@array = $mySID->getFieldNames();
print "Fieldnames = " . join( , @array) . "n";

This module is designed to handle SID files (usually bearing a .sid extension), which are music player and data routines converted from the Commodore-64 computer with an additional informational header prepended. For further details about the exact file format, see description of all SID fields in the SID_file_format.txt file included in the module package.