MP3 Como - 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";
}
</FONT></PRE></CODE></BLOCKQUOTE>
<P><FONT size=2>Las líneas de mayor interés son: </FONT>
<P><FONT size=2><CODE>$cdcap = system("cdparanoia", $count, "/mnt/mp3/tmp/cdda.wav");</CODE> </FONT>
<P><FONT size=2>Esta línea llama al extractor de audio (<I>ripper</I>), <CODE>cdparanoia</CODE>. Aquel convierte la información de audio en crudo del CD, a un archivo en formato WAV. </FONT>
<P><FONT size=2>Estoy usando <CODE>cdparanoia</CODE>, pero si quiere usar CDDA2WAV, la linea de comando sería: </FONT>
<P><FONT size=2><CODE>$cdcap = system("cdda2wav", $count, "/mnt/mp3/tmp/cdda.wav");</CODE> </FONT>
<P><FONT size=2>Los parámetros que siguen, son <CODE>$count</CODE>: 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. </FONT>
<P><FONT size=2>El archivo WAV que se obtiene, es convertido a Mp3 luego, usando BladeEnc. </FONT>
<P><FONT size=2>Escribí este script para Perl, para poder <I>extraer</I> 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. </FONT>
<P><FONT size=2>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. </FONT></P>""