<(common.inc.plp)><: Html({ title => 'dieren cheat sheet', version => '1.0', description => [], keywords => [qw' dier beest naam naamgeving woord taal nederlands gerelateerd relatie vernoemd vernoeming combinatie samenstelling onverwant land zee lucht animals dutch language '], raw => <<'EOT', EOT }); :>

Dierennamen (Dutch animal names)

Dieren die in het Nederlands vernoemd zijn naar andere dieren.

<: my @table = qw( >: origineel: zee-: meer_water: aardig: anders: >hond: hond zeehond waterhond? aardhond? vleerhond >kat: kat zeekat meerkat caterpillar? tijgerkat >muis: muis zeemuis waterrat? aardmuis vleermuis >egel: egel zee-egel wateregel? aardegel? mierenegel >varken: varken zeevarken waterzwijn aardvarken stekelvarken >koe: koe zeekoe meerkoetje aardkoe? haiku? >paard: paard zeepaardje nijlpaard aardpaard? luipaard >beer: beer zeebeer waterbeertje ijsbeer wasbeer >leeuw: leeuw zeeleeuw waterleeuw? aardleeuw? mierenleeuw >wolf: wolf zeewolf waterwolf? aardwolf buidelwolf >haan: haan zeehaan waterhaan rotshaan sprinkhaan ); say ''; for my $name (@table) { if ($name =~ s/^>//) { # leading dash starts a new row say '' if $name; print ""; } if ($name =~ s/:$//) { # trailing colon indicates header text $name =~ y/_/ /; print ""; next; } print qq{'; } say '
$name}; if (-e (my $img = "data/dieren/$name.jpg")) { printf '%s'; } print '
';