Script to generate a histogram showing the dominating years in your music collection

music-years.pl

#!/usr/bin/perl

use warnings;
use strict;

use Audio::TagLib;
use File::Find;
use Statistics::Histogram;

die "Usage : $0 <dir>" unless $ARGV[0] && -d $ARGV[0];

sub unique
{
  my %counts;
  $counts{$_}++ for @{$_[0]};
  return scalar(keys(%counts));
}

my @years;

sub wanted
{
  return unless -f $_;
  my $f = Audio::TagLib::FileRef->new($_);
  if(defined($f->tag()))
  {
    my $year = $f->tag()->year();
    push @years, $year if($year != 0);
  }
}

find(\&wanted, $ARGV[0]);
print get_histogram(\@years, unique(\@years), 1, 1);