Parcourir la source

Create trgt dir if ! exists, and do some ' escape

(untested lol)
master
moex3 il y a 2 ans
Parent
révision
f8bd0b2004
Aucune clé connue n'a été trouvée dans la base pour cette signature ID de la clé GPG: ABC92E00CF59BB7A
1 fichiers modifiés avec 6 ajouts et 1 suppressions
  1. +6
    -1
      flac2mp3.pl

+ 6
- 1
flac2mp3.pl Voir le fichier

@@ -93,6 +93,10 @@ if (scalar(@ARGV) != 2) {

my ($IDIR, $ODIR) = @ARGV;

if (!-e $ODIR) {
mkdir $ODIR;
}

find({ wanted => \&iterFlac, no_chdir => 1 }, $IDIR);

sub iterFlac {
@@ -120,7 +124,8 @@ sub iterFlac {
argsToTags($tags);
my $tagopts = tagsToOpts($tags);

qx(flac -cd "$flac" | lame -V0 -S --vbr-new --add-id3v2 @$tagopts - "$dest");
$flac =~ s!'!'\\''!g;
qx(flac -cd '$flac' | lame -V0 -S --vbr-new --add-id3v2 @$tagopts - "$dest");
}

sub argsToTags {


Chargement…
Annuler
Enregistrer