Free audio codec software for linux

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 collection script is a script which can help you manage collections of audio files. For example, I have a directory with all my audio files in it, sorted by band/album. I also have an audio collections directory. Within that directory I have a few list files which contain patterns for songs that should be part of that collection. The script generates or updates a subdirectory for each list file present and creates links within those directories to all music files from my main audio directory that match the patterns in the list file.

An example:

Your music files are in /audio
Your collections are in /audio-collections
The file /audio-collections/funny.list has the following lines:

/audio-collections/funny/
#the next line matches all songs within a tripod directory
tripod/
monty*python
kevin*bloody*wilson
bill*clinton*miss*lewinsky*and*i

When run, it will process each .list file in the current directory. So for this example, when run from /audio-collections, it will create or clean out the directory /audio-collections/funny and create links inside it for any files found within /audio which match the specified patterns.

The first line in each list file specifies the directory to create and use for the links. The patterns in the file will match on the full path of a song.

Note: I am pretty sure it would not be a good path to put your collections inside your main audio directory.

Perl Audio Converter (PAC) is a tool for converting multiple audio types from one format to another. It supports MP2, MP3, Ogg Vorbis, FLAC, Shorten, Monkey Audio, FAAC (AAC/M4A/MP4), Musepack (MPC), Wavpack (WV), OptimFrog (OFR/OFS), TTA, LPAC, Kexis (KXS), AIFF, AC3, Lossless Audio (LA), AU, SND, RAW, VOC, SMP, RealAudio (RA/RAM), WAV, and WMA.
It can also convert audio from the following video formats/extensions: RM, RV, ASF, DivX, MPG, MKV, MPEG, AVI, MOV, OGM, QT, VCD, VOB, and WMV. A CD ripping function with CDDB support, batch and playlist conversion, tag preservation for most supported formats, independent tag reading/writing, and extensions for Konqueror and amaroK is also provided.
Enhancements:
- Added: MP4::Info dependency IO::String to pacpl-install
- Updated: License GPLv3
- Bug Fix: Directory conversions. pacpl was claiming the directory was empty and prompting to use the --recursive option...Thanks to John Meyer for the report.

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::DB::Web is a Perl module that assists in web-based queries of an MP3 Database.

SYNOPSIS

use Audio::DB::Web;
my $mp3->

Audio::DB is a module for creating relational databases of MP3 files directly from data stored in ID3 tags. Once created, Audio::DB provides various methods for creating reports and web pages of your collection. Although its nutritious and delicious on its own, Audio::DB was created for use with Apache::Audio::DB, a subclass of Apache::MP3. This module makes it easy to make your collection web-accessible, complete with browsing, searching, streaming, multiple users, playlists, ratings, and more!

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.