(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 #>haas: haas zeehaas ? ? ? >muis: muis zeemuis watermuis? aardmuis vleermuis >rat: rat zeerat waterrat woestijnrat buidelrat #beverrat >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 #>hoorn: eenhoorn zee-eenhoorn waterhoorn? aardhoorn? neushoorn eekhoorn #>bra: bh? zebra waterbra? aardbra? cobra #>olifant: olifant zeeolifant waterolifant? landolifant? ? >beer: beer zeebeer waterbeertje ijsbeer wasbeer #neusbeer >leeuw: leeuw zeeleeuw waterleeuw? aardleeuw? mierenleeuw >wolf: wolf zeewolf waterwolf? aardwolf buidelwolf >haan: haan zeehaan waterhaan rotshaan sprinkhaan #>vlo: vlo strandvlo watervlo aardvlo ? #>draak: draak zeedraak waterdraak? aarddraak? ? ); say '$name | "; next; } print qq{}; my $hidden = $name =~ s/\?$//; if (-e (my $img = "data/dieren/$name.jpg")) { printf ''; } elsif (!$hidden) { print $name; } print ' | '; } say '
---|