x3/flac2mp3.pl
1
0
Fork 0
mirror of https://github.com/moex3/flac2mp3.pl synced 2024-11-22 03:54:15 -05:00
Code Issues Releases Wiki Activity

Compare commits

base: x3:dfb21dfc2bb2d519b6dd504bccea0310e2256b47
Branches Tags
x3:master
...
compare: x3:7aebd5fc772e66617cf9f28587ca5c67c939acd9
Branches Tags
x3:master

2 Commits
dfb21dfc2b ... 7aebd5fc77

Author SHA1 Message Date
moex3
7aebd5fc77
Add shell escaping that works :') 2021-07-23 20:28:16 +02:00
moex3
f8bd0b2004
Create trgt dir if ! exists, and do some ' escape 
(untested lol)
 2021-07-23 19:58:34 +02:00
1 changed files with 15 additions and 4 deletions
Show Stats Expand all files Collapse all files

19
flac2mp3.pl
View File

@ -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 {
@ -101,6 +105,7 @@ sub iterFlac {
my @required_tags = ("artist", "title", "album", "tracknumber");
my $flac = $_;
shellsan(\$flac);
my $dest = "$ODIR/" . basename($flac);
$dest =~ s/\.flac$/\.mp3/;
my $tags = getFlacTags($flac);
@ -120,7 +125,7 @@ sub iterFlac {
argsToTags($tags);
my $tagopts = tagsToOpts($tags);
qx(flac -cd "$flac" | lame -V0 -S --vbr-new --add-id3v2 @$tagopts - "$dest");
qx(flac -cd -- '$flac' | lame -V0 -S --vbr-new --add-id3v2 @$tagopts - '$dest');
}
sub argsToTags {
@ -143,15 +148,17 @@ sub tagsToOpts {
my $tagName = $idLookup{$currKey};
my $type = ref($tagName);
if ($type eq "" && defined($tagName)) {
push(@tagopts, qq(--tv '$tagName=$tags->{$currKey}'));
my $tagCont = $tags->{$currKey};
shellsan(\$tagCont);
push(@tagopts, qq(--tv '$tagName=$tagCont'));
} elsif ($type eq "ARRAY") {
my $tagCont = $tagName->[1]->($tags);
shellsan(\$tagCont);
push(@tagopts, qq(--tv '$tagName->[0]=$tagCont'));
}
}
#print(Dumper(\@tagopts));
return \@tagopts;
}
@ -159,7 +166,7 @@ sub getFlacTags {
my $flac = shift;
my %tags;
my @tagtxt = qx(metaflac --list --block-type=VORBIS_COMMENT -- "$flac");
my @tagtxt = qx(metaflac --list --block-type=VORBIS_COMMENT -- '$flac');
foreach my $tagline (@tagtxt) {
if ($tagline =~ /comment\[\d+\]:\s(.*?)=(.*)/) {
$tags{lc($1)} = $2;
@ -168,6 +175,10 @@ sub getFlacTags {
return \%tags;
}
sub shellsan {
${$_[0]} =~ s/'/'\\''/g;
}
sub usage {
print("Usage: flac2mp3.pl [-h | --help] [-g | --genre NUM] <input_dir> <output_dir>\n");
exit 1;