#!/usr/bin/perl

use warnings;
use strict;

my %info;
my %deaths;
open(my $fh, '<', 'images/2015-verk-i-det-fri-doede-kunstnere.csv');
my $header = <$fh>;
while (<$fh>) {
    chomp;
    my ($verk, $deathyear, $name, $subject) = split(/\t/, $_, 4);
#      print "$name\n";
    if (!exists $info{"$deathyear:$name"}) {
        $info{"$deathyear:$name"} = ();
    }
    push(@{$info{"$deathyear:$name"}}, [$verk, $subject]);
    $deaths{$deathyear}++;
}
close($fh);

my $lastdeathyear = 0;
for my $entry (sort keys %info) {
    my ($deathyear, $name) = split(/:/, $entry);
    if ($deathyear != $lastdeathyear) {
        print "</ul>\n" if ($lastdeathyear != 0);
        printf("\n<p>Kunstnere hvis verk faller i det fri i ved nyttår %d (totalt %d).</p>\n\n", $deathyear + 71, $deaths{$deathyear});
        $lastdeathyear = $deathyear;
        print "<ul>\n";
    }
    print "<li><strong>$name</strong> (død $deathyear)\n";
    for my $ref (@{$info{$entry}}) {
        my ($verk, $subject) = @{$ref};
        if ($subject !~ m/^\s*$/) {
            print "<br>$verk/$subject\n";
        } else {
            print "<br>$verk\n";
        }
    }
    print "</li>\n";
}
print "</ul>\n";