Il giorno mer, 31-08-2005 alle 14:26 +0200, Ivan Sergio Borgonovo ha
scritto:
> In casa è entrato un mp3 player. Sorge quindi l'esigenza di rippare i
> miei cd.
Quando iniziai a usare linux (un paio d'anni fa o giu' di li) non trovai
nulla (/me non sapeva come ne dove cercare). Allora mi misi a scrivere
un paio di scriptini stupidi e buffi (che tra l'altro inviai Danieli,
ero gasatissimooooo :))). Ora potrei scriverli, forse, un pochetto
meglio, ma visto che sono pigro continuo ad usare questi :)) Se ti
servono eccoli qua.
[scriptoli]
kripsio@kripsio:~/consigli/ripping_cd$ cat converti_cd.sh
cdda2wav dev=/dev/hdd cddb=0 -B
perl cambia_nomi.pl
chmod 777 cambia_nomi.sh
./cambia_nomi.sh
rm -fr cambia_nomi.sh
rm -fr *wav
rm -fr *inf
rm -fr audio*
kripsio@kripsio:~/consigli/ripping_cd$ cat cambia_nomi.pl
open(fileIN,"audio.cddb") or die("Non apro lettura");
@logData = <fileIN>;
close(fileIN);
$x=1;
foreach $line (@logData)
{
chomp($line);
$filtro=substr($line,0,6);
if ($filtro eq "TTITLE"){
if ($x<10){
$titolo=substr($line,8);
$titolo =~ s/\s/_/g;
$titolo =~ s/\&/and/g;
$titolo =~ s/\'/_/g;
$titolo =~ s/\///g;
$titolo =~ s/\(/_/g;
$titolo =~ s/\)/_/g;
$appoggio.="mv audio_0".$x.".wav 0".$x."-".$titolo.".wav\n";
#$appoggio.="lame -h -b 192 0".$x."-".$titolo.".wav
0".$x."-".$titolo.".mp3\n";
$appoggio.="oggenc -q 6 0".$x."-".$titolo.".wav\n";
} else {
$titolo=substr($line,9);
$titolo =~ s/\s/_/g;
$titolo =~ s/\&/and/g;
$titolo =~ s/\'/_/g;
$titolo =~ s/\///g;
$titolo =~ s/\(/_/g;
$titolo =~ s/\)/_/g;
$appoggio.="mv audio_".$x.".wav ".$x."-".$titolo.".wav\n";
#$appoggio.="lame -h -b 192 ".$x."-".$titolo.".wav
".$x."-".$titolo.".mp3\n";
$appoggio.="oggenc -q 6 ".$x."-".$titolo.".wav\n";
}
$x++;
}
}
open(fileOUT, ">cambia_nomi.sh") or die("Non apro scrittura");
print fileOUT $appoggio;
close(fileOUT);
#print $appoggio;
[/scriptoli]
--
.''`. | Non capisco tutta questa eccitazione per il multitasking: io
: :' : | sono anni che leggo in bagno. [Carlo Landini]
`. `'` |
`- |
|