(common.inc.plp)><:
use warnings;
no warnings 'qw';
my $intro = 'dieren die in het Nederlands vernoemd zijn naar andere dieren.';
my %subpages = (
standaard => {
title => 'dieren',
intro => $intro,
altlink => 'Zie ook verdergezochte verbanden' .
' of het beknopte overzicht.',
},
uitgebreid => {
title => 'uitgebreid dieren',
intro => "$intro.. en dergelijke.",
altlink => 'Zie het populaire overzicht voor minder.',
prefix => '#',
secrets => 1,
},
beknopt => {
title => 'beknopt dieren',
intro => "een aantal $intro",
altlink => 'Zie het populaire overzicht voor meer.',
},
);
$Request ||= 'standaard';
my $pageinfo = $subpages{$Request}
or Html(), Abort("Onbekende dierenpagina $Request
", '404 request not found');
Html({
title => $pageinfo->{title}.' cheat sheet',
version => '1.0',
description => "Tabeloverzicht met afbeeldingen van $pageinfo->{intro}",
keywords => [qw'
dier beest naam naamgeving woord taal nederlands gerelateerd
relatie vernoemd vernoeming combinatie samenstelling voorvoegsel onverwant
land zee lucht animals dutch language
'],
raw => <<'EOT',
EOT
});
:>
<: say ucfirst $pageinfo->{intro}; say $pageinfo->{altlink}; :>
<: my @table = qw( >: origineel: zee-: meer_water: land/aardig: anders: #: >hond: hond zeehond scheepshond? 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??=cactus mierenegel #kegel? >varken: varken zeevarken=bruinvis waterzwijn=capibara aardvarken stekelvarken #feestvarken? >koe: koe zeekoe meerkoetje aardekoe?? koedoe #haiku? >paard: paard zeepaardje nijlpaard (turn)paard? luipaard #tijgerpaard #>hoorn: eenhoorn zeehoorn zee-eenhoorn?=narwal bergahorn=esdoorn 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??=kameleon mierenleeuw # >wolf: wolf zeewolf waterwolf??=snoek aardwolf korenwolf #strandwolf=bruine_hyena >haan: haan zeehaan waterhaan rotshaan sprinkhaan #wilde_haan??=wildrooster #>pad: pad zebrapad? waterpad? landpad schildpad #paddenstoel #>draak: draak zeedraak waterdraak=agame - komododraak=varaan # #>vlo: vlo zeevlo watervlo aardvlo vlok? # #>mot: mot marmot watermot bergamot - # #>bij: bij - waterbij aardbei moerbei hommelbij ); $table[4 + 9*7] = 'grasmodderpaard?=草泥马' if $Request eq 'standaard'; # replace turnpaard @table = qw( >hond zeehond prairiehond >kat zeekat meerkat >muis zeemuis vleermuis >egel zee-egel mierenegel >varken zeevarken stekelvarken >koe zeekoe meerkoetje >paard zeepaardje nijlpaard >olifant zeeolifant olifantsvis >beer zeebeer wasbeer >leeuw zeeleeuw mierenleeuw >wolf zeewolf korenwolf >haan zeehaan sprinkhaan >mot marmot bergamot ) if $Request eq 'beknopt'; 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 $alt = $1 if $name =~ s/=(.*)//;
my $hidden = $name =~ s/\?$//;
$name = "$name" if $name =~ s/\?$//; $name .= " ($alt)" if $alt; printf ''; print ' | ';
}
say '
---|