blog/images/2015-02-06-verk-i-det-fri-doede-kunstnere-filter

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6 my %info;
   7 my %deaths;
   8 open(my $fh, '<', 'images/2015-verk-i-det-fri-doede-kunstnere.csv');
   9 my $header = <$fh>;
  10 while (<$fh>) {
  11     chomp;
  12     my ($verk, $deathyear, $name, $subject) = split(/\t/, $_, 4);
  13 #      print "$name\n";
  14     if (!exists $info{"$deathyear:$name"}) {
  15         $info{"$deathyear:$name"} = ();
  16     }
  17     push(@{$info{"$deathyear:$name"}}, [$verk, $subject]);
  18     $deaths{$deathyear}++;
  19 }
  20 close($fh);
  21
  22 my $lastdeathyear = 0;
  23 for my $entry (sort keys %info) {
  24     my ($deathyear, $name) = split(/:/, $entry);
  25     if ($deathyear != $lastdeathyear) {
  26         print "</ul>\n" if ($lastdeathyear != 0);
  27         printf("\n<p>Kunstnere hvis verk faller i det fri i ved nyttår %d (totalt %d).</p>\n\n", $deathyear + 71, $deaths{$deathyear});
  28         $lastdeathyear = $deathyear;
  29         print "<ul>\n";
  30     }
  31     print "<li><strong>$name</strong> (død $deathyear)\n";
  32     for my $ref (@{$info{$entry}}) {
  33         my ($verk, $subject) = @{$ref};
  34         if ($subject !~ m/^\s*$/) {
  35             print "<br>$verk/$subject\n";
  36         } else {
  37             print "<br>$verk\n";
  38         }
  39     }
  40     print "</li>\n";
  41 }
  42 print "</ul>\n";