Avanti Indietro Indice

10. Codificare da CD-ROM.

Ancora, verificare che lo spazio disponibile su disco sia sufficiente.

Ho scritto un semplice script Perl che cattura e codifica tracce da un CD.


#!/usr/bin/perl

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

$count = 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 "Usage cdriper [no of tracks] [destination directory]\n\n";
}

Le linee di maggior interesse sono

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

Questa linea richiama il programma per copiare le tracce, cdparanoia. Cdparanoia converte i dati grezzi del CD audio in formato WAV.

Le opzioni fondamentali sono $count, che è il numero di tracce da copiare, e poi il percorso per il file WAV di output. Nel mio esempio andrà in una directory tmp sul mio drive SCSI per gli MP3.

Il file WAV viene poi convertito in MP3 utilizzando Bladeenc.

Ho scritto questo script Perl per copiare un CD senza dover copiare e codificare ogni traccia, e senza dover usare il modo batch di Cdparanoia. Questo riduce lo spazio su disco richiesto, a causa del fatto che il modo batch di Cdparanoia copia tutto il disco, e occupa fino a 600 Mega.

Nota: Lo script mostrato sopra è molto semplice e non ha niente di elaborato, come test degli errori. Modificatelo per il vostro divertimento. :)


Avanti Indietro Indice