erlug
[Top] [All Lists]

Re: [Erlug] rip cd

To: ERlug - Lista Pubblica <erlug@xxxxxxxxxxxxxx>
Subject: Re: [Erlug] rip cd
From: Francesco - Kripsio - Boschetti <francesco@xxxxxxxxxxx>
Date: Wed, 31 Aug 2005 14:47:13 +0200
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]
 `. `'`  |
   `-    |

<Prev in Thread] Current Thread [Next in Thread>