relatie vernoemd vernoeming combinatie samenstelling onverwant
land zee lucht animals dutch language
'],
+ raw => <<'EOT',
+<style>
+table {
+ width: 100%;
+}
+tr:first-child th {
+ word-break: break-all;
+}
+img {
+ vertical-align: bottom;
+ width: 100%;
+}
+img[hidden] {
+ transition: opacity 1s 0s;
+ display: inline;
+ opacity: 0;
+}
+img[hidden]:hover {
+ opacity: 1;
+ transition-delay: 2s;
+}
+</style>
+EOT
});
:>
>: origineel: zee-: meer_water: aardig: anders:
>hond: hond zeehond waterhond? aardhond? vleerhond
>kat: kat zeekat meerkat caterpillar? tijgerkat
- >muis: muis zeemuis waterrat? aardmuis vleermuis
+ >muis: muis zeemuis watermuis? aardmuis vleermuis
+ >rat: rat zeerat waterrat woestijnrat buidelrat
>egel: egel zee-egel wateregel? aardegel? mierenegel
>varken: varken zeevarken waterzwijn aardvarken stekelvarken
>koe: koe zeekoe meerkoetje aardkoe? haiku?
>wolf: wolf zeewolf waterwolf? aardwolf buidelwolf
>haan: haan zeehaan waterhaan rotshaan sprinkhaan
);
+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) {
next;
}
print qq{<td title="$name">};
+ my $hidden = $name =~ s/\?$//;
if (-e (my $img = "data/dieren/$name.jpg")) {
printf '<img src="/%s"', $img;
- printf ' alt="%s"', $name;
+ printf ' alt="%s"', -l $img ? readlink($img) =~ s/\.jpg$//r : $name;
+ print ' hidden' if $hidden;
print ' />';
}
+ elsif (!$hidden) {
+ print $name;
+ }
print '</td>';
}
say '</tr></table>';