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 < 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) äöü

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 < 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

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) äöü

$tabmode = default

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!