git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
dieren: prefix to indicate verbose additions
[sheet.git]
/
dieren.plp
diff --git
a/dieren.plp
b/dieren.plp
index 42ca5eccb85ec6b73514ef2d63438e2360399f7d..2017eac41c6b05fc8b43ebd2611b67b46e88f1c8 100644
(file)
--- a/
dieren.plp
+++ b/
dieren.plp
@@
-44,19
+44,31
@@
my @table = qw(
>: origineel: zee-: meer_water: aardig: anders:
>hond: hond zeehond waterhond? aardhond? vleerhond
>kat: kat zeekat meerkat caterpillar? tijgerkat
>: origineel: zee-: meer_water: aardig: anders:
>hond: hond zeehond waterhond? aardhond? vleerhond
>kat: kat zeekat meerkat caterpillar? tijgerkat
- >muis: muis zeemuis waterrat? aardmuis vleermuis
+ #>haas: haas zeehaas ? ? ?
+ >muis: muis zeemuis watermuis? 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? haiku?
>paard: paard zeepaardje nijlpaard aardpaard? luipaard
>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
>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? ?
);
say '<table>';
);
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;
if ($name =~ s/^>//) {
# leading dash starts a new row
say '</tr>' if $name;