dieren: prefix to indicate verbose additions

diff --git a/dieren.plp b/dieren.plp
index 320222f8fc369d867d6c6894584bc13fc40c5bf1..2017eac41c6b05fc8b43ebd2611b67b46e88f1c8 100644 (file)
--- a/dieren.plp
+++ b/dieren.plp
@@ -44,30 +44,31 @@ my @table = qw(
        >:         origineel: zee-:        meer_water:  aardig:      anders:
        >hond:     hond       zeehond      waterhond?   aardhond?    vleerhond
        >kat:      kat        zeekat       meerkat      caterpillar? tijgerkat
+       #>haas:    haas       zeehaas      ?            ?            ?
        >muis:     muis       zeemuis      watermuis?   aardmuis     vleermuis
-       >rat:      rat        zeerat       waterrat     woestijnrat  buidelrat
+       >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?     haiku?
        >paard:    paard      zeepaardje   nijlpaard    aardpaard?   luipaard
-       >beer:     beer       zeebeer      waterbeertje ijsbeer      wasbeer
+       #>hoorn:   eenhoorn   zee-eenhoorn waterhoorn?  aardhoorn?   neushoorn eekhoorn
+       #>bra:     bh?        zebra        waterbra?    aardbra?     cobra
+       #>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
+       #>vlo:     vlo        strandvlo    watervlo     aardvlo      ?
+       #>draak:   draak      zeedraak     waterdraak?  aarddraak?   ?
 );
-push @table, qw(
-       >hoorn:    eenhoorn   zee-eenhoorn waterhoorn?  aardhoorn? neushoorn eekhoorn
-       >haas:     haas       zeehaas      ?            ?           ?
-       >olifant:  olifant    zeeolifant   waterolifant? landolifant? ?
-       >vlo:      vlo        strandvlo    watervlo     aardvlo     ?
-       >bra:      bh?        zebra        waterbra?    aardbra?   cobra
-       >draak:    draak      zeedraak     waterdraak?  aarddraak? ?
-) if exists $get{v};
-splice @table, 6 * 10, 0, 'neusbeer' if exists $get{v};
-splice @table, 6 *  5, 0, 'beverrat' if exists $get{v};
 
 say '<table>';
-for my $name (@table) {
+while (my $name = shift @table) {
+       if ($name =~ s/^#// and not exists $get{v}) {
+               while ($name = shift @table) {
+                       last if $name =~ m/^>/;
+               }
+       }
        if ($name =~ s/^>//) {
                # leading dash starts a new row
                say '</tr>' if $name;