#inserire il proprio device
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*

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;