(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 }); :>
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 '$name | "; next; } print qq{}; my $hidden = $name =~ s/\?$//; if (-e (my $img = "data/dieren/$name.jpg")) { printf ''; } elsif (!$hidden) { print $name; } print ' | '; } say '
---|