<(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 #>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? ? ); if (exists $get{r}) { use List::MoreUtils qw( part ); my @trans = (part { state $col; /^#?>/ ? ($col = 0) : ++$col } @table); @table = (); for (@trans) { unshift @$_, '?:' if $_->[0] !~ /:$/; $_->[0] =~ s/^#?\K>?/>>/; for (@$_) { push @table, s/^#?\K>/$1/r; } } } say ''; while (my $name = shift @table) { if ($name =~ s/^#// and not exists $get{v}) { while ($name = shift @table) { last if $name =~ m/^>/; } } 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}; my $hidden = $name =~ s/\?$//; if (-e (my $img = "data/dieren/$name.jpg")) { printf '%s'; } elsif (!$hidden) { print $name; } print '
';