Report albums in your music directory per year

albumsbyyear.pl

#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;

# Dates to report between ($in 2000, $out 2015)
my ($in, $out);
my $output = './albums_per_year_output/';

Getopt::Long::GetOptions(
    'in=i'  => \$in,
    'out=i' => \$out,
);

die 'Missing parameters.' if !$in || !$out;

mkdir $output if ! -d $output;

foreach ($in..$out) {
    my $file_name = "$output$_.txt";
    my $this_year = `find . -type d -name "*$_*"`;

    if ($this_year) {
        open (my $fh, '>', $file_name) or die "Could not write to $file_name.";
        print $fh $this_year;
        close $fh;
    }   
}

Requirements

• Getopt::Long (CPAN)
• Tested with Perl 5.20

Usage

cd /path/to/music/
perl /path/to/albumsbyyear.pl -in 2000 -out 2015
cd albums_per_year_output
cat *.txt

Output example

% cat 1975.txt
./Black Sabbath [UK]/(1975) Sabotage [320]
./Led Zeppelin [UK]/(1975) Physical Graffiti [LP] [V0]
./Pink Floyd [UK]/(1975) Wish You Were Here [LP] [MP3]
[...]