Test for interpretation of input tag

[- @regs = () ; $regs[0]{Id} = 'Pfalz' ; $regs[1]{Id} = 'Rheinhessen' ; @kats = () ; $kats[0]{Id} = 'Kultur' ; $kats[1]{Id} = 'Sport' ; $kats[2]{Id} = 'Veranstaltungen' ; -]

[- $fdat{dec} = 'a & b' -] [- $fdat{null1} = 0 -] [- $fdat{null2} = '0' -] [- delete $fdat{null1} ; delete $fdat{null2} -] text1 text5

[+$regs[$row]{Id}+]
[+$kats[$row]{Id}+]

ks = [+ do { @ks = sort keys %idat ; "@ks" } +]

[+ $ks[$i=$row] +] | [+ $idat{$ks[$i] || ''} +]

[- @ksall = qw{Wert1 Wert2 Wert3 Wert4 Wert5 Wert6 Wert7 Wert8} ; -]
[$ foreach $i (1,5,2,6) $] [$endforeach$] [$ foreach $i (1,5,2,6) $] [+ $i > 2?"feld$i":'' +] [$endforeach$] [- @order = (1,5,2,6) -]

[+ $i > 2?"feld$i":'' +]

[- $fdat{ta} = 'blabla' -]

[$ foreach $i (5,2,6,1) $]

i = [+ $i +] fdat{feld5} [+ $fdat{feld5} +]

[$endforeach$] ks = [+ do { @ks = sort keys %idat ; "@ks" } +]

[+ $ks[$i=$row] +] | [+ $idat{$ks[$i] || ''} +]

[- @empty = () -]