From 478368d15928cd6cac1bebcc8ae73cd1d247cabd Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Sat, 11 Dec 2021 13:29:03 +0100 Subject: [PATCH] dieren: fill remaining placeholders for paard and hond Replace adjective forms by distinct entities, but also an obscure easter egg over non-animal turnpaard. --- dieren.plp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/dieren.plp b/dieren.plp index 50f9981..477f3ac 100644 --- a/dieren.plp +++ b/dieren.plp @@ -92,7 +92,7 @@ say $pageinfo->{altlink}; <: my @table = qw( >: origineel: zee-: meer_water: land/aardig: anders: #: - >hond: hond zeehond waterhond?? prairiehond vleerhond #rodehond + >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 @@ -101,7 +101,7 @@ my @table = qw( >varken: varken zeevarken=bruinvis waterzwijn=capibara aardvarken stekelvarken #feestvarken? >koe: koe zeekoe meerkoetje aardekoe?? koedoe #haiku? - >paard: paard zeepaardje nijlpaard aardpaard?? luipaard #tijgerpaard + >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 @@ -117,6 +117,7 @@ my @table = qw( #>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 @@ -161,7 +162,7 @@ while (my $name = shift @table) { print ""; } $name =~ s/^-$//; - my ($img) = $name =~ /^([\w-]+)/; + my ($img) = $name =~ /([\w-]+)/; $name =~ y/_/ /; if ($name =~ s/:$//) { # trailing colon indicates header text -- 2.30.0