pastebin - collaborative debugging tool
kpaste.net RSS


perl flac tag script
Posted by Admin on Sun 3rd Apr 2011 21:04
raw | new post
modification of post by Admin (view diff)

  1. #!/opt/local/bin/perl
  2.  
  3. use 5.010;
  4. use strict;
  5. use warnings;
  6. use File::Find qw(find);
  7.  
  8. my $library = "F:/Music";
  9. #$library = "F:/FLAC/Downloaded/New";
  10. my %files;
  11.  
  12. find({ wanted => \&action, no_chdir => 1 }, $library);
  13.  
  14. sub action {
  15.         if (-d) {
  16.                 my $dn = $File::Find::name;
  17.                 %files = getfiles($dn);
  18.                 my $fc = keys %files;
  19. #               say $fc;
  20.                 unless ($fc == 0) {
  21.                         replaygain($dn);
  22.                         foreach my $fn (sort(keys %files)) {
  23.                                 rmtag($fn, 'discnumber', 'disctotal', 'rating', 'comment');
  24.                                 albumartist($fn, $fc);
  25.                                 track($fn);
  26.                                 totaltracks($fn, $fc);
  27. #                               empty($fn);
  28. #                               duplicate($fn);
  29.                         }
  30.                 }
  31.  
  32.  
  33.                 undef %files;
  34.         }
  35. }
  36. # Make this subroutine and the whole script so that each file name is stored in a hash and that each member contains an anonymous hash with the tags (the alltags hash).
  37. # This means it won't have to look up the tags again for the albumartist subroutine.
  38.  
  39. sub gettags {
  40.         my $fn = shift;
  41.         my %alltags;
  42.         open(OUTPUT, '-|', qq{metaflac --no-utf8-convert --export-tags-to=- "$fn"}) || die "can\'t run metaflac: $!";
  43.         local $_;
  44.         while (<OUTPUT>) {
  45.                 chomp;
  46.                 my @tag = split('=');
  47.                 my $tagname = lc($tag[0]);
  48.                 if ($tag[1]) {
  49.                         push @{$alltags{$tagname}}, $tag[1];
  50.                 } else {
  51.                         push @{$alltags{$tagname}}, 'null';
  52.                 }
  53.         }
  54.         close(OUTPUT) || die "couldn\'t close metaflac: $!";
  55.         return %alltags;
  56. }
  57.  
  58. sub getfiles {
  59.         my $dn = shift;
  60.         my %files;
  61.         opendir(my $dh, $dn) or die "Can\'t open directory '$dn': $!";
  62.         foreach (readdir $dh) {
  63.                 my $fn = "$dn/$_";
  64.                 if (/.flac$/ && -f $fn) {
  65.                         $files{$fn} = { gettags($fn) };
  66.                 }
  67.         }
  68.         closedir $dh or die "Can\'t close directory '$dn': $!";
  69.         return %files;
  70. }
  71.  
  72. sub replaygain {
  73.         my $dn = shift;
  74.         my %replaygain;
  75.  
  76.         foreach my $fn (sort(keys %files)) {
  77.                 if ($files{$fn}{replaygain_album_gain}) {
  78.                         $replaygain{$files{$fn}{replaygain_album_gain}->[0]}++;
  79.                 }
  80.         }
  81.         if (keys(%replaygain) != 1) {
  82.                 print "$dn: adding ReplayGain...";
  83.                 system('metaflac', '--add-replay-gain', keys(%files));
  84.                 say " done";
  85.         }
  86. }
  87.  
  88. sub albumartist {
  89.         my $fn = shift;
  90.         my $tracks = shift;
  91.         if (!$files{$fn}{albumartist}) {
  92.                 my $albumartist = 'Various Artists';
  93.                 my %artist;
  94.                 my $max;
  95.                 if ($tracks == 1) {
  96.                         $max = $tracks;
  97.                 }
  98.                 else {
  99.                         $max = $tracks / 2;
  100.                 }
  101.                 foreach my $fn (keys %files) {
  102.                         $artist{$files{$fn}{artist}->[0]}++
  103.                 }
  104.                 if (keys(%artist) <= $max) {
  105.                         my $ac = 0;
  106.                         foreach my $a (keys %artist) {
  107.                                 if ($artist{$a} > $ac) {
  108.                                         $ac = $artist{$a};
  109.                                         $albumartist = $a;
  110.                                 }
  111.                         }
  112.                 }
  113.                 say "$fn: adding albumartist tag";
  114.                 system('metaflac', "--set-tag=ALBUMARTIST=$albumartist", $fn);
  115.         }
  116. }
  117.  
  118. sub empty {
  119.         my $fn = shift;
  120.         foreach my $k (keys %{$files{$fn}}) {
  121.                 foreach (@{$files{$fn}{$k}}) {
  122.                         if ($_ eq 'null') {
  123.                                 say "$fn: WARNING: empty $k tag";
  124.                         }
  125.                 }
  126.         }
  127. }
  128.  
  129. sub duplicate {
  130.         my $fn = shift;
  131.         my %exists;
  132.         foreach my $k (keys %{$files{$fn}}) {
  133.                 foreach (@{$files{$fn}{$k}}) {
  134.                         my $tag = quotemeta($k . '=' . $_);
  135.                         if ($exists{$tag}) {
  136.                                 say "$fn: WARNING: duplicate $k tag";
  137.                         } else {
  138.                                 $exists{$tag} = 1;
  139.                         }
  140.                 }
  141.         }
  142. }
  143.  
  144. sub track {
  145.         my $fn = shift;
  146.         my $track = $files{$fn}{tracknumber}->[0];
  147.         if ($track =~ m/^0/ && $track != 0) {
  148.                 say "$fn: fixing tracknumber tag";
  149.                 $track =~ s/^0+//;
  150.                 system('metaflac', '--remove-tag=TRACKNUMBER', "--set-tag=TRACKNUMBER=$track", $fn);
  151.         }
  152. }
  153.  
  154. sub totaltracks {
  155.         my $fn = shift;
  156.         my $tracks = shift;
  157.         if (
  158.         !$files{$fn}{totaltracks} &&
  159.         !$files{$fn}{tracktotal}
  160.         ) {
  161.                 say "$fn: adding totaltracks tag";
  162.                 system('metaflac', "--set-tag=TOTALTRACKS=$tracks", $fn);
  163.         }
  164.         elsif (
  165.         $files{$fn}{tracktotal} &&
  166.         !$files{$fn}{totaltracks}
  167.         ) {
  168.                 say "$fn: replacing tracktotal tag with totaltracks";
  169.                 system('metaflac', '--remove-tag=TRACKTOTAL', "--set-tag=TOTALTRACKS=$files{$fn}{tracktotal}->[0]", $fn);
  170.         }      
  171. }
  172.  
  173. sub rmtag {
  174.         my $fn = shift;
  175.         foreach (@_) {
  176.                 if ($files{$fn}{$_}) {
  177.                         say "$fn: removing $_ tag";
  178.                         system('metaflac', "--remove-tag=$_", $fn);
  179.                 }
  180.         }
  181. }

Submit a correction or amendment below (click here to make a fresh posting)
After submitting an amendment, you'll be able to view the differences between the old and new posts easily.

Syntax highlighting:

To highlight particular lines, prefix each line with {%HIGHLIGHT}





All content is user-submitted.
The administrators of this site (kpaste.net) are not responsible for their content.
Abuse reports should be emailed to us at