Some tests for Embperl

[- $a = ' and more' -]

Hallo

Here it starts with some HTML Text

[- $aaa = 1 -]
[- $fdat{ VERSION } = 3 -] = 3 $] WIDTH=35 [$ endif $]> = 4 $] WIDTH=35 [$ endif $]> = 3 $] foo="" [$ endif $]> = 4 $] foo="" [$ endif $]> optDisableHtmlScan is now: [+ $optDisableHtmlScan +]
optDisableHtmlScan is set now to: [+ $optDisableHtmlScan = 1 +]
optDisableHtmlScan is now: [+ $optDisableHtmlScan +]
[+ $fdat{feld2} = 'blabla2' ; +] [+ $fdat{feld6} = 'blabla6' ; +] [- @ks = sort keys %idat -]

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

[- @ks = sort keys %fdat -]

[+ $ks[$row] +] | [+ $fdat{$ks[$row] || ''} +]

optDisableHtmlScan is now: [+ $optDisableHtmlScan +]
optDisableHtmlScan is set now to: [+ $optDisableHtmlScan = 0 +]
optDisableHtmlScan is now: [+ $optDisableHtmlScan +]

[+ $ks[$row] +] | [+ $fdat{$ks[$row] || ''} +]