(get_tags): http://us.xiph.org/ogg/vorbis/doc/v-comment.html says the

[flac-archive] / flac2mp3

diff --git a/flac2mp3 b/flac2mp3
index 8c4e7462efc18e08e62d962b946d913e913f1c8b..6a496bf7aae3461d426b22d4e2d771e769718098 100755 (executable)
--- a/flac2mp3
+++ b/flac2mp3
@@ -8,7 +8,7 @@ B<flac2mp3> - transcode FLAC file to MP3 files
 
 =head1 SYNOPSIS
 
-B<flac2mp3> I<file>
+B<flac2mp3> [B<--lame-options> I<lame-options>] [B<-q>] [B<-v>] I<file>
 
 =head1 DESCRIPTION
 
@@ -24,11 +24,18 @@ use warnings;
 
 use POSIX ':sys_wait_h';
 use Pod::Usage;
+use Getopt::Long qw(:config gnu_getopt no_ignore_case);
+
+my $flac_options;
+my $lame_options;
+my $quiet;
+my $verbose;
 
 sub run_or_die {
     my $command = shift;
     my $status;
 
+    $verbose and print(STDERR "$command\n");
     $status = system($command);
 
     if (WIFEXITED($status)) {
@@ -85,12 +92,13 @@ sub get_decode_args {
 # in the file FN.
 sub get_tags {
     my $fn = shift;
+    my $artists = shift;
+    my $titles = shift;
     my $tag;
     my $value;
     my $artist;
     my $album;
     my $date;
-    my @titles;
 
     open(TAGS, '-|', 'metaflac', '--export-vc-to=-', $fn)
       or die("open(metaflac --export-vc-to=- $fn): $!");
@@ -99,19 +107,24 @@ sub get_tags {
 
         ($tag, $value) = split(/=/, $_, 2);
 
-        if (/^ARTIST=/) {
+        if (/^ARTIST=/i) {
             $artist = $value;
-        } elsif (/^ALBUM=/) {
+        } elsif (/^ALBUM=/i) {
             $album = $value;
-        } elsif (/^DATE=/) {
+        } elsif (/^DATE=/i) {
             $date = $value;
-        } elsif (/TITLE/) {
-            push(@titles, $value);
+        } elsif (/^ARTIST\[/i) {
+            push(@$artists, $value);
+
+        # Intentionally don't match the = on this one, to support the
+        # TITLE[1] .. TITLE[n] tag style.
+        } elsif (/^TITLE/i) {
+            push(@$titles, $value);
         }
     }
     close(TAGS) or die("close(metaflac --export-vc-to=- $fn): $?");
 
-    return ($artist, $album, $date, @titles);
+    return ($artist, $album, $date);
 }
 
 sub flac2mp3 {
@@ -123,38 +136,86 @@ sub flac2mp3 {
     my $track = shift;
     my $skip_arg = shift;
     my $until_arg = shift;
+    my @tmp;
     my $outfile;
 
+    if ($quiet) {
+        $flac_options = '--silent';
+    } else {
+        $flac_options = '';
+    }
+
+    if ($lame_options) {
+        push(@tmp, $lame_options);
+    } else {
+        push(@tmp, '--preset standard');
+    }
+    $quiet and push(@tmp, '--quiet');
+    $verbose and push(@tmp, '--verbose');
+    $lame_options = join(' ', @tmp);
+
     # We'll be putting these in single quotes, so we need to escape
     # any single quotes in the filename by closing the quote ('),
     # putting an escaped quote (\'), and then reopening the quote (').
     for ($fn, $title, $artist, $album, $date) {
-        s/'/'\\''/;
+        s/'/'\\''/g;
     }
 
     $outfile = sprintf("$artist ($album) \%02s $title.mp3", $track);
     $outfile =~ s/\//_/g;
 
     $until_arg ||= '';
-    run_or_die(join(' ', "flac -cd $skip_arg $until_arg '$fn'",
-                    " | lame --preset standard --tt '$title' --ta '$artist'",
+    run_or_die(join(' ', "flac $flac_options -cd $skip_arg $until_arg '$fn'",
+                    " | lame $lame_options --tt '$title' --ta '$artist'",
                     " --tl '$album' --ty '$date' --tn $track - '$outfile'"));
 }
 
 MAIN: {
+    my $help;
+    GetOptions(
+               'lame-options=s', \$lame_options,
+               'quiet|q' => \$quiet,
+               'verbose|v' => \$verbose,
+               'help|h|?' => \$help,
+              ) or pod2usage();
+    $help and pod2usage(-exitstatus=>0, -verbose=>1);
+
     my $fn = shift or pod2usage();
     my @args = get_decode_args($fn);
-    my ($artist, $album, $date, @titles) = get_tags($fn);
+    my (@artists, @titles);
+    my ($artist, $album, $date) = get_tags($fn, \@artists, \@titles);
 
     for my $i (0..$#titles) {
-        flac2mp3($fn, $titles[$i], $artist, $album, $date, $i + 1,
-                 @{$args[$i]});
+        flac2mp3($fn, $titles[$i], ($artists[$i] or $artist), $album, $date,
+                 $i + 1, @{$args[$i]});
     }
 }
 
 \f
 __END__
 
+=head1 OPTIONS
+
+=over 4
+
+=item B<--lame-options> I<lame-options>
+
+Pass I<lame-options> to B<lame>.  This ends up being passed to the
+shell, so feel free to take advantage of that.  You'll almost
+certainly have to put I<lame-options> in single quotes.
+
+=item B<-q> [B<--quiet>]
+
+Suppress status information.  This option is passed along to B<flac>
+and B<lame>.
+
+=item B<-v> [B<--verbose>]
+
+Print diagnostic information.  This option is passed along to B<flac>
+and B<lame>.
+
+=back
+
 =head1 AUTHORS
 
 Written by Eric Gillespie <epg@pretzelnet.org>.