1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
package subimp ;
#require HTML::Embperl::Module ;
#@ISA = qw{HTML::Embperl::Module} ;
#HTML::Embperl::Module::init (\*DATA) ;
#1 ;
{
local $/ = undef ;
my $data = <DATA> ;
# compile page
my $pn = __PACKAGE__ ;
HTML::Embperl::Execute ({inputfile => __FILE__,
input => \$data,
mtime => -M __FILE__ ,
import => 0,
options => HTML::Embperl::optKeepSrcInMemory,
package => $pn . $ENV{EMBPERL_EP1COMPAT}}) ;
}
# import subs
sub import
{
my $pn = __PACKAGE__ ;
HTML::Embperl::Execute ({inputfile => __FILE__,
import => 2,
package => $pn . $ENV{EMBPERL_EP1COMPAT}}) ;
1 ;
}
1 ;
__DATA__
[###### first sub #####]
[$sub tfirst$]
<h2>1.) Here goes some normal html text <h2>
[$endsub$]
[###### second sub #####]
[$sub tsecond $]
2.) Here comes some perl:
[- $foo = 'Hello world' -]
foo = [+ $foo +]<br>
testdata = [+ $testdata +]<br>
params in sub.pm = [+ "@_" +]
[$endsub$]
[###### table cell #####]
[$sub tabcell $]
<td>[+ $_[0] -> [$row][$col] +]<td>
[$endsub$]
[###### table header #####]
[$sub tabheader $]
<table>
<tr><th>1</th><th>2></th></tr>
<tr>
[$endsub$]
[###### table footer #####]
[$sub tabfooter $]
</tr>
</table>
[$endsub$]
|
