in questi giorni di vacanza mi sono deciso a convertire *tutti* gli .mp3 in .ogg lool
sto usando mp32ogg che è decisamente più veloce di SoundConverter (ho fatto qualche prova e ci mette in media circa 1/3 del tempo in meno)
l'unico "problema" è che in mezzo a tutti gli mp3 ce ne sono un bel pò con estensione .MP3 (maiuscolo) ed mp32ogg gli skippa...
avevo quindi 2 alternative:
- con uno script cambiare l'estensione da .MP3 a .mp3
- modificare direttamente lo script mp32ogg
siccome con perl non ho mai avuto modo di smanettarci, ho colto l'occasione e ho fatto una piccola modifica per convertire anche i file con estensione .MP3
ovviamente non è un bug, dato che il vero bug sono io con 'sti file .MP3 (bad) però magari potrebbe essere utile a qualcun'altro...
essendo uno script, la pacchettizzazione è estremamente semplice...
EDIT: per me l'ho creato con debuild e funziona, ma la pacchettizzazione finalizzata alla redistribuzione non è il mio mestiere...(li faccio per me e per i miei amici/soci/colleghi da sempre...anche se fatti discretamente)
se qualcuno avesse voglia questo è il diff:
Codice: Seleziona tutto
--- mp32ogg 2006-12-08 09:45:30.000000000 +0100
+++ mp32ogg 2007-08-16 04:35:48.000000000 +0200
@@ -148,8 +148,8 @@
sub findfunc() {
$file = $_;
- ($name,$dir,$ext) = fileparse($file,'\.mp\d');
- if((/\.mp\d/,$ext) && -f $file) {
+ ($name,$dir,$ext) = fileparse($file,'\.mp\d','\.MP\d');
+ if((/\.mp\d/,/\.MP\d/,$ext) && -f $file) {
&checkfile($file);
}
}
@@ -217,7 +217,7 @@
warn "not enough ID3 info to rename, reverting to old filename.\n";
}
- ($filename,$dirname,$ext) = fileparse($mp3file,'\.mp\d');
+ ($filename,$dirname,$ext) = fileparse($mp3file,'\.mp\d','\.MP\d');
}
else {
$filename =~ s/\%a/$info->{ARTIST}/g;come vedete la modifica da applicare è davvero una stupidaggine...quindi niente di che...
potrebbe essere utile però...
