From 65b7fa6922ee52e5a65109b4c7ab7abc8f4a2df4 Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Sun, 3 May 2020 00:21:50 +0200 Subject: [PATCH] dieren: additional words, underscore replaced by space --- dieren.plp | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/dieren.plp b/dieren.plp index e4dd746..7cc7f5d 100644 --- a/dieren.plp +++ b/dieren.plp @@ -57,8 +57,8 @@ else { <: my @table = qw( >: origineel: zee-: meer_water: aardig: anders: #: - >hond: hond zeehond waterhond? aardhond? vleerhond #rodehond - >kat: kat zeekat meerkat caterpillar? tijgerkat # + >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 @@ -67,17 +67,17 @@ my @table = qw( >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 # + #>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 # + #>pad: pad zeepad? waterpad? landpad schildpad #paddenstoel #>draak: draak zeedraak waterdraak aarddraak? komododraak # - #>vlo: vlo strandvlo watervlo aardvlo # # + #>vlo: vlo strandvlo watervlo aardvlo vlok? # #>mot: mot zeemot? watermot aardmot? marmot # - #>bij: bij zeebij? waterbij aardbij # # + #>bij: bij zeebij? waterbij aardbei # # ); if (exists $get{r}) { @@ -100,6 +100,7 @@ while (my $name = shift @table) { last if $name =~ m/^>/; } } + $name =~ y/_/ /; if ($name =~ s/^>//) { # leading dash starts a new row say '' if $name; @@ -107,7 +108,6 @@ while (my $name = shift @table) { } if ($name =~ s/:$//) { # trailing colon indicates header text - $name =~ y/_/ /; print "$name"; next; } -- 2.30.0