<html> <head> <title>Some Plain tests Embperl</title> </head> <body> [$ var $a $b $c $d $e $i $j $ii $v $k $fv @a %a @b %h @c @ii %hash $wv $wk @hh @hhh $] Here it starts with some HTML Text<P> All values should be undefined: $a = [+ $a || '' +] <BR> $b = [+ $b || '' +] <BR> $c = [+ $c || '' +] <BR> $d = [+ $d || '' +] <BR> $e = [+ $e || '' +] <BR> First of all assign a value: [- $a = '(this is the value in $a)' -] <BR> Now we have some 'Umlaute': [- $b = "$a äöü" -] Now lets look what we are getting from this:<BR> [+ $a +] [+ $b +]<BR> And now a and b together: [+ "$a$b" +]<P> Here we have some HTML tags within the perl code, Embperl will delete them!<BR> [+ $c = <BR> 6 + 17 <font size="3"> * 3 +] Embperl will also translate HMTL escapes to the right characters i.e. $a &lt; 6 will get the perl expression $a < 6: <BR> [- $e = 2 -] [+ $d = $e < 6 +] Now they should have a value $a = [+ $a +] <BR> $b = [+ $b +] <BR> $c = [+ $c +] <BR> $d = [+ $d +] <BR> $e = [+ $e +] <BR> [- $a = 1; $b = 0; $c = 5; $d = 'txt' -] [$if $a$] a <br> [$ endif$] [$if $a $] a <br> [$else$] not a<br> [$ endif $] [$ if $a$] a <br> [$if $b == 0$] b is null <br> [$else$] b is not null <br> [$endif$] [$ else$] not a<br> [$ endif $] [$ if $a$] a <br> [$if $b == 0$] b is null <br> [$else$] b is not null <br> [$endif$] [$ else$] not a<br> [$if $b == 0$] b is null <br> [$else$] b is not null <br> [$endif$] [$ endif $] [$ if !$a$] not a <br> [$if $b == 0$] b is null <br> [$else$] b is not null <br> [$endif$] [$ else$] a<br> [$if $b == 0$] b is null <br> [$else$] b is not null <br> [$endif$] [$ endif $] [- $i = 0 -] [$ while $i <= $#ffld $] [+ $ffld[$i] +] = [+ $fdat{$ffld[$i]} +] [- $j = 0 -] [$ while $j <= $i $] [+ $j++ +] [$ endwhile $] <BR> [- $i++ -] [$ endwhile $] <table> <tr> <td>[+ $c[$row][$col] +] </td> </tr> </table> <p> $tabmode = default <p> <hr><p>Display an two dimensional array with one, two and three columns !<BR> Please take a look at the source in your browser to see the difference<BR> [- undef @a ; undef @b ; $a[0][0] = 'a1/1' ; $a[1][0] = 'a2/1' ; $a[1][1] = 'a2/2' ; $a[2][0] = 'a3/1' ; $a[2][1] = 'a3/2' ; $a[2][2] = 'a3/3' ; $b[0][0] = 'b1/1' ; $b[1][0] = 'b2/1' ; $b[1][1] = 'b2/2' ; $b[2][0] = 'b3/1' ; $b[2][1] = 'b3/2' ; $b[2][2] = 'b3/3' ; $maxcol=99 ; -] $a[0][[0] = '1/1' ;<BR> $a[1][[0] = '2/1' ;<BR> $a[1][[1] = '2/2' ;<BR> $a[2][[0] = '3/1' ;<BR> $a[2][[1] = '3/2' ;<BR> $a[2][[2] = '3/3' ;<BR> <P>$tabmode = default <P> <table border="1" width="100%"> <tr> <td>[+ $a[$row][$col] +] </td> </tr> </table> <table border="2" width="100%"> <tr> <td>[+ $a[$row][$col] +] </td> </tr> </table> <table border="3" width="100%"> <tr> <td>[+ $a[$row][$col] +] </td> </tr> </table> <table border="4" > <tr> <td> <table border="5" > <tr> <td>[+ $b[$row][$col] +] </td> </tr> </table> [+ $a[$row][$col] +] </td> </tr> </table> <P>[+ $Embperl::VERSION +]<P> <P>[+ $tabmode || 17 +]<P> <P>[+ local $tabmode = 1 +]<P> <P> [- $i = 0 ; while ($i < 10) { $ii[$i++] = "ii[$i] = $i" ; } -] [- $i = 0 -] [$ while $i <= $#ffld $] [+ $ffld[$i] +] = [+ $fdat{$ffld[$i]} +] [- $j = 0 -] [$ while $j <= $i $] [+ $j++ +] [$ endwhile $] <BR> [- $i++ -] [$ endwhile $] [- $i = 0 -] [$ while($i <= 2)$] [+ $i++ +] [$ endwhile $] [- %h = ('A' => 1, 'B' => 2, 'C' => 3) ; -] [- @a = ('a', 'b', 'c', 'd') ; -] [- @hh = map { $_ => $h{$_} } sort keys %h -] [$ while ($v = shift @hh, $k = shift @hh) $] [+ "$v = $k" +]<br> [$ endwhile $] [- $i = 0 -] [$ while $i <= $#a $] [+ "\@a[$i] = $a[$i]" +]<br> [- $i++ -] [$ endwhile $] [- $i = 0 -] [$ do $] [+ "\@a[$i] = $a[$i]" +]<br> [- $i++ -] [$ until $i > $#a $] [$ foreach $v (@a) $] [+ $v +] <br> [$ endforeach $] [$ foreach $v (1, 3, 5, 7, 9) $] [+ $v +] <br> [$ endforeach $] [$ foreach $v (1..10) $] [+ $v +] <br> [$ endforeach $] [$ foreach $v(1..5) $] 2:[+ $v +] <br> [$ endforeach $] [- %hash = ( a=>1, b=>2, c=>3) -] [$ foreach $v(sort keys %hash) $] 3:[+ $v +] <br> [$ endforeach $] [- $i = 0 -] [$ do $] [+ "\@a[$i] = $a[$i]" +]<br> [- @hh = map { $_ => $h{$_} } sort keys %h -] [$ while ($v = shift @hh, $k = shift @hh) $] [+ "$v = $k" +]<br> [$ foreach $fv (1, 3, 5, 7, 9) $] [+ $fv +] <br> [$ endforeach $] [$ foreach $fv (()) $] [+ $fv +] <br> [- @hh = map { $_ => $h{$_} } sort keys %h -] [$ while ($wv = shift @hh, $wk = shift @hh) $] [+ "$wv = $wk" +]<br> [$ endwhile $] [$ endforeach $] [$ endwhile $] [- $i++ -] [$ until $i > $#a $] [- undef @a ; undef @b -] [$ if 1 $] x [$ foreach $a (@a) $] [$ foreach $b (@b) $] [$ endforeach $] [$ endforeach $] y [$ endif $] <table> <tr> <td>[+ $ii[$row] +] </td> </tr> </table> </body> </html>