# Embperl Tests - Include other Embperl pages via Execute

# 1.) Include from memory

Here is some text

# 2.) Include from memory with some Embperl code

a1 | b2 | c3

# 3.) Include from memory with passing of variables

Transfer some vars Some Var !

# 4.) Change the variable, but not the code

Transfer some vars Do it again !

# 5a.) Use method -> param to pass parameters

Use method -> param to transfer some data (1 2 3 4) !

# 5.) Use \@param to pass parameters

Use @param to transfer some data (1 2 3 4) !

# 6.) Use \@param to pass parameters and return it

### $p[0] is vara and $p[1] is varb

###

Got data in @param (vara varb) !

Change data in @param to (newA newB) !

### $p[0] is now newA and $p[1] is now newB

###

# 7.) Presetup \%fdat and \@ffld

fdat | text
test | value

# 7a.) Presetup my \%fdat and my \@ffld

fdat1 | text1
test1 | value1

# 7b.) Presetup \%fdat

^

(fdat2<\/td> | text2<\/td><\/tr>
test2<\/td> | value2|test2<\/td> | value2<\/td><\/tr>
fdat2<\/td> | text2)<\/td><\/tr><\/table><\/P> # 7c.) Presetup \@ffld @ffld = fdat3 test3 # 8a.) Include a file Here it starts with some HTML Text All values should be undefined at the first include and apear at the second include: $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 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 Ok. # 8b.) Include again the same file Here it starts with some HTML Text All values should be undefined at the first include and apear at the second include: $a = (this is the value in $a) $b = (this is the value in $a) äöü $c = 57 $d = 1 $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 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 Ok. # 9.) Include a file and return output in a scalar ### Here it starts with some HTML Text<P> All values should be undefined at the first include and apear at the second include: <P> $a = (this is the value in $a) <BR> $b = (this is the value in $a) &auml;&ouml;&uuml; <BR> $c = 57 <BR> $d = 1 <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) &auml;&ouml;&uuml;<BR> And now a and b together: (this is the value in $a)(this is the value in $a) &auml;&ouml;&uuml;<P> Here we have some HTML tags within the perl code, Embperl will delete them!<BR> 57 SELECT * FROM a ORDER BY b USING &lt;; Hi There&gt; 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 &lt;; Hi There&gt; Embperl will also translate HMTL escapes to the right characters i.e. $a &amp;lt; 6 will get the perl expression $a &lt; 6: <BR> 1 Now they should have a value $a = (this is the value in $a) <BR> $b = (this is the value in $a) &auml;&ouml;&uuml; <BR> $c = 57 <BR> $d = 1 <BR> $e = 2 <BR> <P>Ok.<P> # 10.) Include inside a table
m1 : Start include
m1 - s1 | m1 - s2 | m1 - s3
Parameters:
m1 | main
p0 m1 p1 main End include
m2 : Start include
m2 - s1 | m2 - s2 | m2 - s3
Parameters:
m2 | main
p0 m2 p1 main End include
m3 : Start include
m3 - s1 | m3 - s2 | m3 - s3
Parameters:
m3 | main
p0 m3 p1 main End include
# 11.) Include a file with parameters Here is param[0] -> 0 Here is param[1] -> B Here is param[2] -> three Here is param[3] -> dddd Here is param[4] -> 555 # 12.) Include a file and write outputfile # 12.) Done :-) Embperl (c) 1997-2005 G.Richter