dieren.plp

   1 <(common.inc.plp)><:
   2
   3 Html({
   4         title => 'dieren cheat sheet',
   5         version => '1.0',
   6         description => [],
   7         keywords => [qw'
   8                 dier beest naam naamgeving woord taal nederlands gerelateerd
   9                 relatie vernoemd vernoeming combinatie samenstelling onverwant
  10                 land zee lucht  animals dutch language
  11         '],
  12 });
  13
  14 :>
  15 <h1>Dierennamen <small>(Dutch animal names)</small></h1>
  16
  17 <p>Dieren die in het Nederlands vernoemd zijn naar andere dieren.</p>
  18
  19 <:
  20 my @table = qw(
  21         >:         origineel: zee-:        meer_water:  aardig:      anders:
  22         >hond:     hond       zeehond      waterhond?   aardhond?    vleerhond
  23         >kat:      kat        zeekat       meerkat      caterpillar? tijgerkat
  24         >muis:     muis       zeemuis      waterrat?    aardmuis     vleermuis
  25         >egel:     egel       zee-egel     wateregel?   aardegel?    mierenegel
  26         >varken:   varken     zeevarken    waterzwijn   aardvarken   stekelvarken
  27         >koe:      koe        zeekoe       meerkoetje   aardkoe?     haiku?
  28         >paard:    paard      zeepaardje   nijlpaard    aardpaard?   luipaard
  29         >beer:     beer       zeebeer      waterbeertje ijsbeer      wasbeer
  30         >leeuw:    leeuw      zeeleeuw     waterleeuw?  aardleeuw?   mierenleeuw
  31         >wolf:     wolf       zeewolf      waterwolf?   aardwolf     buidelwolf
  32         >haan:     haan       zeehaan      waterhaan    rotshaan     sprinkhaan
  33 );
  34
  35 say '<table>';
  36 for my $name (@table) {
  37         if ($name =~ s/^>//) {
  38                 # leading dash starts a new row
  39                 say '</tr>' if $name;
  40                 print "<tr>";
  41         }
  42         if ($name =~ s/:$//) {
  43                 # trailing colon indicates header text
  44                 $name =~ y/_/ /;
  45                 print "<th>$name</th>";
  46                 next;
  47         }
  48         print qq{<td title="$name">};
  49         if (-e (my $img = "data/dieren/$name.jpg")) {
  50                 printf '<img src="/%s"', $img;
  51                 printf ' alt="%s"', $name;
  52                 print ' />';
  53         }
  54         print '</td>';
  55 }
  56 say '</tr></table>';