Quellcode durchsuchen

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

(untested lol)
master
moex3 vor 2 Jahren
Ursprung
Commit
f8bd0b2004
Es konnte kein GPG-Schlüssel zu dieser Signatur gefunden werden GPG-Schlüssel-ID: ABC92E00CF59BB7A
1 geänderte Dateien mit 6 neuen und 1 gelöschten Zeilen
  1. +6
    -1
      flac2mp3.pl

+ 6
- 1
flac2mp3.pl Datei anzeigen

@@ -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 {


Laden…
Abbrechen
Speichern