Просмотр исходного кода

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

(untested lol)
master
moex3 2 лет назад
Родитель
Сommit
f8bd0b2004
Не найден GPG ключ соответствующий данной подписи Идентификатор GPG ключа: ABC92E00CF59BB7A
1 измененных файлов: 6 добавлений и 1 удалений
  1. +6
    -1
      flac2mp3.pl

+ 6
- 1
flac2mp3.pl Просмотреть файл

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


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


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

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


sub iterFlac { sub iterFlac {
@@ -120,7 +124,8 @@ sub iterFlac {
argsToTags($tags); argsToTags($tags);
my $tagopts = tagsToOpts($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 { sub argsToTags {


Загрузка…
Отмена
Сохранить