Página siguiente Página anterior Índice general

10. Codificación desde el CD-ROM.

De nuevo, asegúrese que hay espacio suficiente en el disco duro.

Escribí un script muy simple en Perl, que extraerá las pistas de un CD y luego las comprimirá:

#!/usr/bin/perl

if ($ARGV[0] ne "") {

    $acount = 1;
    do {
         $cdcap = system("cdparanoia", $count, "/mnt/mp3/tmp/cdda.wav");
         $track = "$ARGV[1]/track".$count.".mp3";
         $benc = system("bladeenc/tmp/cdda.wav $track -br 256000");
         $count++;
    } until $count > $ARGV[0];
    exit;

} else {
     print "Uso: cdriper [no. de pistas] [directorio destino]\n\n";
}

Las líneas de mayor interés son:

$cdcap = system("cdparanoia", $count, "/mnt/mp3/tmp/cdda.wav");

Esta línea llama al extractor de audio (ripper), cdparanoia. Aquel convierte la información de audio en crudo del CD, a un archivo en formato WAV.

Estoy usando cdparanoia, pero si quiere usar CDDA2WAV, la linea de comando sería:

$cdcap = system("cdda2wav", $count, "/mnt/mp3/tmp/cdda.wav");

Los parámetros que siguen, son $count: el número de pista que se va a extraer, y la trayectoria de salida para el archivo que se obtenga. En mi ejemplo, será el directorio tmp en mi disco SCSI MP3.

El archivo WAV que se obtiene, es convertido a Mp3 luego, usando BladeEnc.

Escribí este script para Perl, para poder extraer un CD sin tener que extraer y comprimir cada pista, y sin usar el modo batch de CDParanoia. Ese modo toma más espacio en disco, ya que CDParanoia extrae el CD completo, lo que puede llegar a significar mas de 600Mb.

Nota: Tenga en cuenta que el script de más arriba es muy básico, y carece de ciertas habilidades, como control de errores, etc. Mejórelo a su gusto.


Página siguiente Página anterior Índice general

Hosting by: hurra.com
Generated: 2007-01-26 18:00:35