<: 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: aardig: anders: #: >hond: hond zeehond waterhond? prairiehond vleerhond #rodehond >kat: kat zeekat meerkat cat_325? tijgerkat # #>haas: haas zeehaas waterhaas aardhaas? ossenhaas? # >muis: muis zeemuis waterspitsmuis 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? koedoe #haiku? >paard: paard zeepaardje nijlpaard aardpaard? luipaard # #>hoorn: eenhoorn zeehoorn zee-eenhoorn? aardhoorn? neushoorn #eekhoorn #>bra: brassiere? zebra waterbra? aardbra? cobra #sabra #>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 # #>pad: pad zeepad? waterpad? landpad schildpad #paddenstoel #>draak: draak zeedraak waterdraak aarddraak? komododraak # #>vlo: vlo strandvlo watervlo aardvlo vlok? # #>mot: mot zeemot? watermot aardmot? marmot # #>bij: bij zeebij? waterbij aardbei # # ); 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; } printf '', $name // '?';
my $hidden = $name =~ s/\?$//;
if ($name and -e (my $img = "data/dieren/$name.jpg")) {
printf ' | ';
}
say '
|---|