(common.inc.plp)><: my $intro = 'dieren die in het Nederlands vernoemd zijn naar andere dieren.'; $intro .= '.. en dergelijke.' if $Request; $intro .= '.. enzo.' if exists $get{v}; Html({ title => (!!$Request && 'uitgebreid ') . 'dieren cheat sheet', version => '1.0', description => "Tabeloverzicht met afbeeldingen van $intro", 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 }); :>
<: say ucfirst $intro; if ($Request) { say 'Zie het populaire overzicht voor minder.'; } else { say 'Zie ook minderbekende en verdergezochte verbanden.'; } :>
<: my @table = qw( >: origineel: zee-: meer_water: land/aardig: anders: #: >hond: hond zeehond waterhond?? prairiehond vleerhond #rodehond >kat: kat zeekat meerkat cat_325? vliegende_kat #tijgerkat #>haas: haas zeehaas waterhaas koolhaas? ossenhaas? #buidelhaas >muis: muis zeemuis waterspitsmuis aardmuis vleermuis #computermuis >rat: rat zeerat waterrat woestijnrat buidelrat #beverrat >egel: egel zee-egel wateregel? aardegel?? mierenegel # >varken: varken zeevarken waterzwijn aardvarken stekelvarken # >koe: koe zeekoe meerkoetje aardekoe?? koedoe #haiku? >paard: paard zeepaardje nijlpaard aardpaard?? luipaard #tijgerpaard #>hoorn: eenhoorn zeehoorn zee-eenhoorn? bergahorn neushoorn #eekhoorn #>bra: bra(ssière)? zebra - - cobra #sabra #>olifant: olifant zeeolifant olifantsvis kamerolifant? - #olifantsoor >beer: beer zeebeer waterbeertje ijsbeer wasbeer #neusbeer >leeuw: leeuw zeeleeuw waterleeuw?? aardleeuw?? mierenleeuw # >wolf: wolf zeewolf waterwolf?? aardwolf korenwolf #buidelwolf >haan: haan zeehaan waterhaan rotshaan sprinkhaan #wilde_haan?? #>pad: pad zebrapad? waterpad? landpad schildpad #paddenstoel #>draak: draak zeedraak waterdraak - komododraak # #>vlo: vlo zeevlo watervlo aardvlo - #vlok? #>mot: mot marmot watermot bergamot - # #>bij: bij - waterbij aardbei moerbei hommelbij ); 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 '$name | "; next; } print '';
my $hidden = $name =~ s/\?$//;
my $alt = $name;
$name = "$name" if $name =~ s/\?$//; printf ''; print ' | ';
}
say '
---|