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
+ paard: +paard +zeepaardje +nijlpaard ?grasmodderpaard=草泥马#?(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
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 ?aarddraak=戊辰 komododraak=varaan #drakenkop
+ draak: draak_#draak zeedraak waterdraak=agame ?aarddraak=戊辰 komododraak=varaan #drakenkop
#vlo: vlo zeevlo watervlo aardvlo - #vlok
#mot: +mot +marmot watermot +bergamot ?behemoth #
#bij: bij - waterbij aardbei moerbei #hommelbij
title => 'uitgebreid dieren',
intro => "$intro.. en dergelijke.",
altlink => 'Zie het <a href="/dieren">populaire overzicht</a> voor minder.',
- prefix => qr/^[#+]*/, # optional # or +
+ prefix => qr/.*?[#]|^[#+]*/, # after optional # or +
secrets => 1,
},
beknopt => {
<:
my $table = readdata('dieren');
-if ($Request eq 'standaard') {
- $table->[ 9][4] = '?grasmodderpaard=草泥马'; # replace turnpaard
- $table->[18][1] = 'draak_'; # irl animal
-}
if (exists $get{r}) {
use List::MoreUtils qw( part );
print '<tr>';
for my $name (@{$row}) {
my $hidden = $name =~ s/^\?//;
+ $name =~ s/#.*//; # ignore prefixed part
$name =~ s/^-$//;
my ($img) = $name =~ /([\w-]+)/;
$name =~ y/_/ /;