Free audio ao software for linux

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::CD is a Perl interface to libcdaudio (cd + cddb).

SYNOPSIS

use Audio::CD ();
my $cd = Audio::CD->init;

Audio::CD provides a Perl interface to libcdaudio by Tony Arcieri, available from http://cdcd.undergrid.net/

Several classes provide glue for the libcdaudio functions and data structures.

Audio::CD Class ^

init

Initialize the Audio::CD object:
my $cd = Audio::CD->init;

stat

Stat the Audio::CD object, returns an Audio::CD::Info object.
my $info = $cd->stat;

cddb

Returns an Audio::CDDB object.
my $cddb = $cd->cddb;

play

Play the given cd track (defaults to 1).
$cd->play(1);

stop

Stop the cd.
$cd->stop;

pause

Pause the cd.
$cd->pause;

resume

Resume the cd.
$cd->resume;

eject

Eject the cd.
$cd->eject;

close

Close the cd tray.
$cd->close;

play_frames

$cd->play_frames($startframe, $endframe);

play_track_pos

$cd->play_track_pos($strarttrack, $endtrack, $startpos);

play_track

$cd->play_track($strarttrack, $endtrack);

track_advance

$cd->track_advance($endtrack, $minutes, $seconds);

advance

$cd->advance($minutes, $seconds);

get_volume

Returns an Audio::CD::Volume object.

my $vol = $cd->get_volume;

set_volume

$cd->set_volume($vol);

Audio::ESD is a Perl extension for talking to the Enlightened Sound Daemon.

SYNOPSIS

use Audio::ESD;
my $stream = Audio::ESD->play_stream({ # these are the defaults
sample_rate => 16000,
channels => 1,
fallback => 0,
bits_sample => 16,
encoding => linear })
or die "Failed to open ESD stream: $!n";
print $stream $data; # etcetera

This module provides a Perl wrapper around the Enlightened Sound Daemons client library. Input, output, and monitoring streams are supported, as well as some (but not all) of the control functions. Samples are supported but untested.

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.

Audio::File is a audio file abstraction library.

SYNOPSIS

use Audio::File;
my $file = Audio::File->new( "foo.bar" );

print "The ". $file->type() ."-file ". $file->name
." is ". int $file->length() ." seconds long.n";

print "Its interpreted by ". $file->tag->artist()
." and called ". $file->tag->title() ".n";

Audio::File abstracts a single audio file, independant of its format. Using this module you can access a files meta-info like title, album, etc. as well as the files audio-properties like its length and bitrate.

Currently only the formats flac, ogg vorbis and mp3 are supported, but support for other formats may be easily added.

Audio::Ecasound is a Perl binding to the ecasound sampler, recorder, fx-processor.

SYNOPSIS
One function interface:
use Audio::Ecasound qw(:simple);

eci("cs-add play_chainsetup");
eci("c-add 1st_chain");
eci("-i:some_file.wav");
eci("-o:/dev/dsp");
# multiple n separated commands
eci("cop-add -efl:100
# with comments
cop-select 1
copp-select 1
cs-connect");
eci("start");
my $cutoff_inc = 500.0;
while (1) {
sleep(1);
last if eci("engine-status") ne "running";

my $curpos = eci("get-position");
last if $curpos > 15;

my $next_cutoff = $cutoff_inc + eci("copp-get");
# Optional float argument
eci("copp-set", $next_cutoff);
}
eci("stop");
eci("cs-disconnect");
print "Chain operator status: ", eci("cop-status");

Object Interface

use Audio::Ecasound;

my $e = new Audio::Ecasound;
$e->on_error();
$e->eci("cs-add play_chainsetup");
# etc.
Vanilla Ecasound Control Interface (See Ecasounds Programmer Guide):
use Audio::Ecasound qw(:std);

command("copp-get");
$precise_float = last_float() / 2;
command_float_arg("copp-set", $precise_float);
warn last_error() if error();
IAM Interface, pretend interactive mode commands are functions.
use Audio::Ecasound qw(:iam :simple);

# iam commands as functions with s/-/_/g
my $val = copp_get;
copp_set $val+0.1; # floats are stringified so beware
eci("-i /dev/dsp"); # not all commands are exported

Audio::Ecasound provides perl bindings to the ecasound control interface of the ecasound program. You can use perl to automate or interact with ecasound so you dont have to turn you back on the adoring masses packed into Wembly Stadium.
Ecasound is a software package designed for multitrack audio processing. It can be used for audio playback, recording, format conversions, effects processing, mixing, as a LADSPA plugin host and JACK node. Version >= 2.2.X must be installed to use this package. "SEE ALSO" for more info.

Audio Convert is a script to convert Wav, Ogg, MP3, MPC, FLAC, APE, or WMA files into Wav, Ogg, MP3, MPC, FLAC, or APE files.
It has an easy-to-use interface that makes it possible to fill in the tags for a few formats and choose the quality of compression.
The script was initially designed for the nautilus file browser, and can be easily installed into nautilus by copying it to the nautilus-scripts directory, at which point you can right click on the desired audio file(s) and choose "audio-convert" from the "scripts" menu.
The script is also known to work on rox or directly from a shell.
Enhancements:
- The installer was modified to create the directory it is supposed to create.