<html> <head> <title>Tests for Embperl - Execute via an intermediate module</title> </head> <body> <h1>Tests for Embperl - Execute via an intermediate module</h1> begin execviamod <html> <head> <title>Some Plain tests for Embperl</title> </head> <!-- Here is a comment --> <body> Here it starts with some HTML Text<P> All values should be undefined: $a = <BR> $b = <BR> $c = <BR> $d = <BR> $e = <BR> ARRAY @d = num = 0 <BR> ARRAY @x = num = 0 <BR> HASH %a = num = 0 <BR> HASH %y = num = 0 <BR> First of all assign a value: <BR> Now we have some 'Umlaute': Now lets look what we are getting from this:<BR> (this is the value in $a) (this is the value in $a) äöü<BR> ARRAY @d = 1 2 3 num = 3 <BR> ARRAY @x = 9 8 7 num = 3 <BR> HASH %a = 1 2 3 a b c num = 3 <BR> HASH %y = 7 8 9 x y z num = 3 <BR> And now a and b together: (this is the value in $a)(this is the value in $a) äöü<P> Here we have some HTML tags within the perl code, Embperl will delete them!<BR> 57 SELECT * FROM a ORDER BY b USING <; Hi There> Here we have something which looks like a HTML tag, but does not start with<br> a character, Embperl does not change them!<BR> SELECT * FROM a ORDER BY b USING <; Hi There> Embperl will also translate HMTL escapes to the right characters i.e. $a &lt; 6 will get the perl expression $a < 6: <BR> 1 Now they should have a value $a = (this is the value in $a) <BR> $b = (this is the value in $a) äöü <BR> $c = 57 <BR> $d = 1 <BR> $e = 2 <BR> Input Separator = 10<br> <P>Ok.<P> </body> </html> middle execviamod <html> <head> <title>Some Plain tests for Embperl</title> </head> <!-- Here is a comment --> <body> Here it starts with some HTML Text<P> All values should be undefined: $a = (this is the value in $a) <BR> $b = (this is the value in $a) äöü <BR> $c = 57 <BR> $d = 1 <BR> $e = 2 <BR> ARRAY @d = 1 2 3 num = 3 <BR> ARRAY @x = num = 3 <BR> HASH %a = 1 2 3 a b c num = 3 <BR> HASH %y = 7 8 9 x y z num = 3 <BR> First of all assign a value: <BR> Now we have some 'Umlaute': Now lets look what we are getting from this:<BR> (this is the value in $a) (this is the value in $a) äöü<BR> ARRAY @d = 1 2 3 num = 3 <BR> ARRAY @x = 9 8 7 num = 3 <BR> HASH %a = 1 2 3 a b c num = 3 <BR> HASH %y = 7 8 9 x y z num = 3 <BR> And now a and b together: (this is the value in $a)(this is the value in $a) äöü<P> Here we have some HTML tags within the perl code, Embperl will delete them!<BR> 57 SELECT * FROM a ORDER BY b USING <; Hi There> Here we have something which looks like a HTML tag, but does not start with<br> a character, Embperl does not change them!<BR> SELECT * FROM a ORDER BY b USING <; Hi There> Embperl will also translate HMTL escapes to the right characters i.e. $a &lt; 6 will get the perl expression $a < 6: <BR> 1 Now they should have a value $a = (this is the value in $a) <BR> $b = (this is the value in $a) äöü <BR> $c = 57 <BR> $d = 1 <BR> $e = 2 <BR> Input Separator = 10<br> <P>Ok.<P> </body> </html> end execviamod Now without output <html> <head> <title>Some Plain tests Embperl</title> </head> <body> Here it starts with some HTML Text<P> All values should be undefined: $a = <BR> $b = <BR> $c = <BR> $d = <BR> $e = <BR> First of all assign a value: <BR> Now we have some 'Umlaute': Now lets look what we are getting from this:<BR> (this is the value in $a) (this is the value in $a) äöü<BR> And now a and b together: (this is the value in $a)(this is the value in $a) äöü<P> Here we have some HTML tags within the perl code, Embperl will delete them!<BR> 57 Embperl will also translate HMTL escapes to the right characters i.e. $a &lt; 6 will get the perl expression $a < 6: <BR> 1 Now they should have a value $a = (this is the value in $a) <BR> $b = (this is the value in $a) äöü <BR> $c = 57 <BR> $d = 1 <BR> $e = 2 <BR> a <br> a <br> a <br> b is null <br> a <br> b is null <br> a<br> b is null <br> <table></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> $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="2" width="100%"> <tr> <td>a1/1 </td> </tr> <tr> <td>a2/1 </td> <td>a2/2 </td> </tr> <tr> <td>a3/1 </td> <td>a3/2 </td> <td>a3/3 </td> </tr> </table> <table border="2" width="100%"> <tr> <td>a1/1 </td> </tr> <tr> <td>a2/1 </td> <td>a2/2 </td> </tr> <tr> <td>a3/1 </td> <td>a3/2 </td> <td>a3/3 </td> </tr> </table> <table border="2" width="100%"> <tr> <td>a1/1 </td> </tr> <tr> <td>a2/1 </td> <td>a2/2 </td> </tr> <tr> <td>a3/1 </td> <td>a3/2 </td> <td>a3/3 </td> </tr> </table> <table> <tr> <td> <table> <tr> <td>b1/1 </td> </tr> <tr> <td>b2/1 </td> <td>b2/2 </td> </tr> <tr> <td>b3/1 </td> <td>b3/2 </td> <td>b3/3 </td> </tr> </table> a1/1 </td> </tr> <tr> <td> <table> <tr> <td>b1/1 </td> </tr> <tr> <td>b2/1 </td> <td>b2/2 </td> </tr> <tr> <td>b3/1 </td> <td>b3/2 </td> <td>b3/3 </td> </tr> </table> a2/1 </td> <td> <table> <tr> <td>b1/1 </td> </tr> <tr> <td>b2/1 </td> <td>b2/2 </td> </tr> <tr> <td>b3/1 </td> <td>b3/2 </td> <td>b3/3 </td> </tr> </table> a2/2 </td> </tr> <tr> <td> <table> <tr> <td>b1/1 </td> </tr> <tr> <td>b2/1 </td> <td>b2/2 </td> </tr> <tr> <td>b3/1 </td> <td>b3/2 </td> <td>b3/3 </td> </tr> </table> a3/1 </td> <td> <table> <tr> <td>b1/1 </td> </tr> <tr> <td>b2/1 </td> <td>b2/2 </td> </tr> <tr> <td>b3/1 </td> <td>b3/2 </td> <td>b3/3 </td> </tr> </table> a3/2 </td> <td> <table> <tr> <td>b1/1 </td> </tr> <tr> <td>b2/1 </td> <td>b2/2 </td> </tr> <tr> <td>b3/1 </td> <td>b3/2 </td> <td>b3/3 </td> </tr> </table> a3/3 </td> </tr> </table> <P><P> <P>17<P> <P>1<P> <P> <table> <tr> <td>ii[0] = 0 </td> </tr> <tr> <td>ii[1] = 1 </td> </tr> <tr> <td>ii[2] = 2 </td> </tr> <tr> <td>ii[3] = 3 </td> </tr> <tr> <td>ii[4] = 4 </td> </tr> <tr> <td>ii[5] = 5 </td> </tr> <tr> <td>ii[6] = 6 </td> </tr> <tr> <td>ii[7] = 7 </td> </tr> <tr> <td>ii[8] = 8 </td> </tr> <tr> <td>ii[9] = 9 </td> </tr> </table> </body> </html> <html> <head> <title>Some Plain tests Embperl</title> </head> <body> Here it starts with some HTML Text<P> All values should be undefined: $a = 1 <BR> $b = <BR> $c = 5 <BR> $d = txt <BR> $e = 2 <BR> First of all assign a value: <BR> Now we have some 'Umlaute': Now lets look what we are getting from this:<BR> (this is the value in $a) (this is the value in $a) äöü<BR> And now a and b together: (this is the value in $a)(this is the value in $a) äöü<P> Here we have some HTML tags within the perl code, Embperl will delete them!<BR> 57 Embperl will also translate HMTL escapes to the right characters i.e. $a &lt; 6 will get the perl expression $a < 6: <BR> 1 Now they should have a value $a = (this is the value in $a) <BR> $b = (this is the value in $a) äöü <BR> $c = 57 <BR> $d = 1 <BR> $e = 2 <BR> a <br> a <br> a <br> b is null <br> a <br> b is null <br> a<br> b is null <br> <table></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> $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="2" width="100%"> <tr> <td>a1/1 </td> </tr> <tr> <td>a2/1 </td> <td>a2/2 </td> </tr> <tr> <td>a3/1 </td> <td>a3/2 </td> <td>a3/3 </td> </tr> </table> <table border="2" width="100%"> <tr> <td>a1/1 </td> </tr> <tr> <td>a2/1 </td> <td>a2/2 </td> </tr> <tr> <td>a3/1 </td> <td>a3/2 </td> <td>a3/3 </td> </tr> </table> <table border="2" width="100%"> <tr> <td>a1/1 </td> </tr> <tr> <td>a2/1 </td> <td>a2/2 </td> </tr> <tr> <td>a3/1 </td> <td>a3/2 </td> <td>a3/3 </td> </tr> </table> <table> <tr> <td> <table> <tr> <td>b1/1 </td> </tr> <tr> <td>b2/1 </td> <td>b2/2 </td> </tr> <tr> <td>b3/1 </td> <td>b3/2 </td> <td>b3/3 </td> </tr> </table> a1/1 </td> </tr> <tr> <td> <table> <tr> <td>b1/1 </td> </tr> <tr> <td>b2/1 </td> <td>b2/2 </td> </tr> <tr> <td>b3/1 </td> <td>b3/2 </td> <td>b3/3 </td> </tr> </table> a2/1 </td> <td> <table> <tr> <td>b1/1 </td> </tr> <tr> <td>b2/1 </td> <td>b2/2 </td> </tr> <tr> <td>b3/1 </td> <td>b3/2 </td> <td>b3/3 </td> </tr> </table> a2/2 </td> </tr> <tr> <td> <table> <tr> <td>b1/1 </td> </tr> <tr> <td>b2/1 </td> <td>b2/2 </td> </tr> <tr> <td>b3/1 </td> <td>b3/2 </td> <td>b3/3 </td> </tr> </table> a3/1 </td> <td> <table> <tr> <td>b1/1 </td> </tr> <tr> <td>b2/1 </td> <td>b2/2 </td> </tr> <tr> <td>b3/1 </td> <td>b3/2 </td> <td>b3/3 </td> </tr> </table> a3/2 </td> <td> <table> <tr> <td>b1/1 </td> </tr> <tr> <td>b2/1 </td> <td>b2/2 </td> </tr> <tr> <td>b3/1 </td> <td>b3/2 </td> <td>b3/3 </td> </tr> </table> a3/3 </td> </tr> </table> <P><P> <P>17<P> <P>1<P> <P> <table> <tr> <td>ii[0] = 0 </td> </tr> <tr> <td>ii[1] = 1 </td> </tr> <tr> <td>ii[2] = 2 </td> </tr> <tr> <td>ii[3] = 3 </td> </tr> <tr> <td>ii[4] = 4 </td> </tr> <tr> <td>ii[5] = 5 </td> </tr> <tr> <td>ii[6] = 6 </td> </tr> <tr> <td>ii[7] = 7 </td> </tr> <tr> <td>ii[8] = 8 </td> </tr> <tr> <td>ii[9] = 9 </td> </tr> </table> </body> </html> And done! </body> </html>