# Tests for Embperl - Execute via an intermediate module

begin execviamod
Some Plain tests for Embperl
Here it starts with some HTML Text

All values should be undefined: $a =
$b =
$c =
$d =
$e =
ARRAY @d = num = 0
ARRAY @x = num = 0
HASH %a = num = 0
HASH %y = num = 0
First of all assign a value:
Now we have some 'Umlaute': Now lets look what we are getting from this:
(this is the value in $a) (this is the value in $a) äöü
ARRAY @d = 1 2 3 num = 3
ARRAY @x = 9 8 7 num = 3
HASH %a = 1 2 3 a b c num = 3
HASH %y = 7 8 9 x y z num = 3
And now a and b together: (this is the value in $a)(this is the value in $a) äöü

Here we have some HTML tags within the perl code, Embperl will delete them!
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
a character, Embperl does not change them!
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:
1 Now they should have a value $a = (this is the value in $a)
$b = (this is the value in $a) äöü
$c = 57
$d = 1
$e = 2
Input Separator = 10

Ok.

middle execviamod
Some Plain tests for Embperl
Here it starts with some HTML Text

All values should be undefined: $a = (this is the value in $a)
$b = (this is the value in $a) äöü
$c = 57
$d = 1
$e = 2
ARRAY @d = 1 2 3 num = 3
ARRAY @x = num = 3
HASH %a = 1 2 3 a b c num = 3
HASH %y = 7 8 9 x y z num = 3
First of all assign a value:
Now we have some 'Umlaute': Now lets look what we are getting from this:
(this is the value in $a) (this is the value in $a) äöü
ARRAY @d = 1 2 3 num = 3
ARRAY @x = 9 8 7 num = 3
HASH %a = 1 2 3 a b c num = 3
HASH %y = 7 8 9 x y z num = 3
And now a and b together: (this is the value in $a)(this is the value in $a) äöü

Here we have some HTML tags within the perl code, Embperl will delete them!
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
a character, Embperl does not change them!
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:
1 Now they should have a value $a = (this is the value in $a)
$b = (this is the value in $a) äöü
$c = 57
$d = 1
$e = 2
Input Separator = 10

Ok.

end execviamod Now without output
Some Plain tests Embperl
Here it starts with some HTML Text

All values should be undefined: $a =
$b =
$c =
$d =
$e =
First of all assign a value:
Now we have some 'Umlaute': Now lets look what we are getting from this:
(this is the value in $a) (this is the value in $a) äöü
And now a and b together: (this is the value in $a)(this is the value in $a) äöü

Here we have some HTML tags within the perl code, Embperl will delete them!
57 Embperl will also translate HMTL escapes to the right characters i.e. $a &lt; 6 will get the perl expression $a < 6:
1 Now they should have a value $a = (this is the value in $a)
$b = (this is the value in $a) äöü
$c = 57
$d = 1
$e = 2
a
a
a
b is null
a
b is null
a
b is null

$tabmode = default

Display an two dimensional array with one, two and three columns !
Please take a look at the source in your browser to see the difference
$a[0][0] = '1/1' ;
$a[1][0] = '2/1' ;
$a[1][1] = '2/2' ;
$a[2][0] = '3/1' ;
$a[2][1] = '3/2' ;
$a[2][2] = '3/3' ;

$tabmode = default

a1/1
a2/1 | a2/2
a3/1 | a3/2 | a3/3

a1/1
a2/1 | a2/2
a3/1 | a3/2 | a3/3

a1/1
a2/1 | a2/2
a3/1 | a3/2 | a3/3

b1/1
b2/1 | b2/2
b3/1 | b3/2 | b3/3
a1/1
b1/1
b2/1 | b2/2
b3/1 | b3/2 | b3/3
a2/1 |
b1/1
b2/1 | b2/2
b3/1 | b3/2 | b3/3
a2/2
b1/1
b2/1 | b2/2
b3/1 | b3/2 | b3/3
a3/1 |
b1/1
b2/1 | b2/2
b3/1 | b3/2 | b3/3
a3/2 |
b1/1
b2/1 | b2/2
b3/1 | b3/2 | b3/3
a3/3

17

1

ii[0] = 0
ii[1] = 1
ii[2] = 2
ii[3] = 3
ii[4] = 4
ii[5] = 5
ii[6] = 6
ii[7] = 7
ii[8] = 8
ii[9] = 9

Some Plain tests Embperl
Here it starts with some HTML Text

All values should be undefined: $a = 1
$b =
$c = 5
$d = txt
$e = 2
First of all assign a value:
Now we have some 'Umlaute': Now lets look what we are getting from this:
(this is the value in $a) (this is the value in $a) äöü
And now a and b together: (this is the value in $a)(this is the value in $a) äöü

Here we have some HTML tags within the perl code, Embperl will delete them!
57 Embperl will also translate HMTL escapes to the right characters i.e. $a &lt; 6 will get the perl expression $a < 6:
1 Now they should have a value $a = (this is the value in $a)
$b = (this is the value in $a) äöü
$c = 57
$d = 1
$e = 2
a
a
a
b is null
a
b is null
a
b is null

$tabmode = default

Display an two dimensional array with one, two and three columns !
Please take a look at the source in your browser to see the difference
$a[0][0] = '1/1' ;
$a[1][0] = '2/1' ;
$a[1][1] = '2/2' ;
$a[2][0] = '3/1' ;
$a[2][1] = '3/2' ;
$a[2][2] = '3/3' ;

$tabmode = default

a1/1
a2/1 | a2/2
a3/1 | a3/2 | a3/3

a1/1
a2/1 | a2/2
a3/1 | a3/2 | a3/3

a1/1
a2/1 | a2/2
a3/1 | a3/2 | a3/3

b1/1
b2/1 | b2/2
b3/1 | b3/2 | b3/3
a1/1
b1/1
b2/1 | b2/2
b3/1 | b3/2 | b3/3
a2/1 |
b1/1
b2/1 | b2/2
b3/1 | b3/2 | b3/3
a2/2
b1/1
b2/1 | b2/2
b3/1 | b3/2 | b3/3
a3/1 |
b1/1
b2/1 | b2/2
b3/1 | b3/2 | b3/3
a3/2 |
b1/1
b2/1 | b2/2
b3/1 | b3/2 | b3/3
a3/3

17

1

ii[0] = 0
ii[1] = 1
ii[2] = 2
ii[3] = 3
ii[4] = 4
ii[5] = 5
ii[6] = 6
ii[7] = 7
ii[8] = 8
ii[9] = 9

And done!